
inicíate en la 
programación con 
nosotros 



PROGRAMAS 



Misión Auóai 
Reloj 

Halcón Callejero 
MaúJumper 
El Señor úe los anillos 



TOdOS COII TEST DE LISTADOS 



MSX CLUB DE 



Nueva sección de compras por correo 



Deus ex Machina 

¿Sólo un juego? 



Ganador del 





DESAFIAMOS TU IMAGINACION, TU LOGICA, TU ESPIRITU DE 
AVENTURA. A TU JOYSTICK. TE DESAFIAMOS A PASARLO 
BIEN ¡A LO GRANDE! ¡A TOPE CON TU ORDENADOR! 
TE PRESENTAMOS LOS MAS ALUCINANTES JUEGOS. 
SUPERPROGR AM AS. SUPER: DESAFIANTES, INTRIGANTES, 
LLENOS DE ESTRATEGIA PARA QUE USES A FONDO TU IMAGI- 
NACION Y DEMUESTRES TU HABILIDAD E INTELIGENCIA. TE 
PROPONEMOS HORAS DE DIVERSION SEGURA. 



¿HASTA QUE HORA DE LA MADRUGADA RESISTIRAS? 




Calle Valencia. 85 - 08029 BARCELONA - Télex 54554 DLGC 
Teléfonos 253 86 93 • 253 89 09 253 90 45 - 253 74 00 



ATREVETE m UTILIDADES 

MAS PRACTICAS PARA TU MSX 



UTILES 
con 

itenciaI&U 



IDEA 



ESTAREMOS EN S.I.M.O. PABELLON 10 
NIVEL SUPERIOR STAND C 18 







ain ocupar memoria 
losibilita al usuario 
:onsultar cualquier 
nformación referen- 
e a las instrucciones 
te programación en 
3ASIC. Las consul- 
as pueden efectuar- 
le en cualquier mo- 
nento ya que BA- 
SIC TUTOR es trans- 
iente a programas 
]ue escribamos o 
:arguemos en me- 
noría. 



isponer de una sensacional calculadora residente 

i tu MSX, a tu alcance en cualquier instante, con sólo 
tocar un tecla. Un reloj alarma programable. 

Copiar por impresora las pantallas de tus programas. 
Crear fantásticos efectos de animación. Disponer 
formidables editores de sprites y avanzadas 
instrucciones para su manejo. ¡¡IMAGINA!! 
Consultar un completo prontuario de tu 

BASIC MSX interactivamente... sólo con 
conectar uno de nuestros programas y 
¡a funcionar! ¡ASI DE FACIL! 




>UPER SPRITES 

'ermite aumentar la capacidad de 
lestión y edición de nuestro MSX. Po- 
ente editor de formas de distintos tama- 
ios y colores, pudiendo ser salvadas o car- 
jadas desde cualquier otro programa, permi- 
iendo el control de velocidad, orientación y 
:ambio de formas de sprites. 

>IDE PACK 

'ermite acceder a múltiples funciones desde cual- 
juier programa dada su transparencia. Entre otras 
ios proporciona una potente calculadora científi- 
a, reloj alarma programable, copia de pantallas 
>or impresora... SIDE PACK será un inseparable 
le tu ordenador. 




CALCULATOR NEW 



La más potente calcula- 
dora científica que puedes comprar para 
tu ordenador. Programa pensado para 
todas aquellas personas que requieran 
un potente soporte matemático, rápido 
y sencillo de usar. 



\ IDEA TEXT 

Procesador de textos de fácil ma 
nejo. Máxima potencia de trabajo. 
42 K libres de Memoria. EDITOR de 
página entera con control total de mar 
genes, identaciones, centrado, espacios, 
encabezados, pies de página, movimiento c, 
inserción de bloques, etc. Trabaja con cualquier 
impresora. Compatible con IDEA BASE y DIM 
CALC. Permite salvar en cinta o disco. 

IDEA BASE 

Impresión de etiquetas y listados. 42 K de me- 
moria libre de trabajo. Ordenación de registros 
Menús conversacionales e interactivos. 
Puede salvar o grabar en cinta o disco. 
Es compatible con IDEA TEXT y DIM CALC. 



IDEAIOGIC 



NUESTRO DEPARTAMENTO Pedidos : 254 5128 
de M.C. está a su disposición 

Consúltenos: * Delegados y distribuidores 

Tel. 253 74 00 en todo el país 



* •• MSX- ■ ' * ■ 

' ón Calidad / Vrerin 



DRO SOgT 





MOLECULE MAN 

Perdido en un laberinto de 
256 habitaciones lucha en con- 
tra del tiempo y las radiaciones 
letales para teleportarte a 
lugar seguro. También incluido 
en esta cinta un único y fácil 
de utilizar, sistema de constru- 
cción de laberintos, que te 
permitirá corregir el existente 
o crear otros nuevos. 

MSX 

COMMODORE 




SPEED KING 

El juego de carreras de Moto- 
.cicietas con la emocionante 
acción de correr rueda con 
i rueda contra otros 19 pilotos 
jPome el casco y vive la inol- 
vidable aventure de las motos 
de altas prestaciones compi- 
tiendo a 250 millas a la hora! 



MSX ■ 
AMSJRAD 

SPECTRUM 



MSX 
AMSJRAD 
SPECTRUM 




KIMIGHTTYME 

La tercera de la serie de aven- 
turas Magic Knight, se encon- 
tró a si mismo transportado 
al siglo 25 abordo de la nave 
estelar PISCIS. El juego utili- 
za un sistema mejorado de 
animación, que fue utilizado 
por primera vez en Spellbound. 
¿Será éste el fin de Magic 
Knight?. 

SERIE M.A.D.: P.V.P. 1.100 PTAS. 





MSX 
AMSJRAD 
SPECTRUM 




CHILLER 
En una fría noche de Luna llena 
intentarás salvar a tu chica 
enfrentándote a cadáveres 
vivientes, arañas, espectros 
y murciélagos. 
{Animo y recoge todas las 
cruces que puedas*! 



FORMULA 1 

El juego de competición de 
mayor realismo, con los diez 
circuitos más famosos; 
SILVERSTONE, MONACO, 
MONZA... etc. 

¡3, 2. 1... Adelante! 



\ " 





SPACE WALK 

Eres un astronauta al mando 
de la Lanzadora Espacial. 
Desde tu base en la luna vigilas 
los satélites , descarriados y 
tienes que recuperarlos. Tra- 
baja por la superficie de la luna 
y cuando sea necesario utiliza 
el JET-PACK para propulsarte 
al satélite. 'c4," - *' r ^j3í^^B 

Licencia exclusiva para ESPAÑA DRO SOR 
Fundadores, 3 28028 MADRID 
Tais. 255 45 00/09 



Editorial 



FELIZ AÑO NUEVO 



Con este ejemplar que tenéis en 
vuestras manos entramos en el 
tercer año. El tiempo transcurrido 
nos permite constatar que hemos 
crecido juntos a vosotros y gracias 
a vosotros, fieles lectores. No es 
sino a vuestro apoyo constante y 
a la entrañable relación que hemos 
establecido, que esta revista se 
mantiene en los altos índices de 
venta dentro del sector MSX. 
También es gracias a vosotros que 
nos hemos sentido motivados a 
mejorar día a día la calidad de 
nuestros artículos, respondiendo 
a las necesidades del usuario ya 
veterano, sin olvidar a los 
novatos. 

Al iniciar el Nuevo Año queremos 
comentar que a partir de este 
número MSX CLUB costará 225 
ts. más, debido al incremento de 
os costos de papel, impresión y 
otros gastos estructura es. De 
todos modos, siempre bajo la 
óptica de estar al alcance de todos, 
no nos quedamos con que hay que 
aumentar el precio. También 
aumentamos las páginas y la 
información, a la vez que 
profundizamos en temas que el 
mismo usuario va descubriendo a 
medida que usa su aparato. 
A la hora de hacer balance nos 
sentimos satisfechos y como 
nobleza obliga, hemos querido 
explicar las razones que nos 
impulsan al incremento y que no 
sólo nos afectan a nosotros como 
podréis comprobar en el quiosco. 



; FELIZ AÑO NUEVO! 



MANHATTAN TRANSFER, S.A. 



Sumario 




Año III - N.° 24 - Enero 1987 ■ Sale el día 1 de cada mes. 
P.V.P. 225 Ptas. (Inc. IVA y sobretasa aérea Canarias). 



y LINEA DIRECTA 

U Respondemos a las in- 
U quietudes de nuestros 



10 



TABLON DE ANUNCIOS 

Dos inserciones gratui- 
tas para compra, venta e 
intercambio de software 
original. 
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BASIC PASO A PASO 

Primera entrega del cur- 
so de BASIC Manhattan 
Transfer. 

PROGRAMAS 

13 El halcón callejero 
16 Mad Jumper 
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20 El señor de los anillos 
32 Misión audaz 




a r\ COMO COMPRAR UN 
/ VI ORDENADOR 
m / Recomendaciones para 
futuros usuarios: 




* * MONITOR AL DIA 

4 1 Las novedades más inte- 
J m resantes dentro del 
mundo del MSX. 



38 



DEUX EX MACHINA 

Algo más que un juego 
de ordenador. 



42 



OTROS LENGUAJES: 
PASCAL 

El BASIC no es el fin del 
ordenador. 
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Línea directa 



PERIFERICOS MSX: 



¿Puedo conectar una cá- 
mara de vídeo al ordenador 
para tomar imágenes del ex- 
terior? 

¿Vale cualquier MO- 
DEM para los MSX? 
¿Cómo se utiliza? 

Antonio M. Vallejos Soto 
ALBACETE 




Sí tienes un MSX de pri- 
mera generación, necesitas 
un interfaz adecuado que, 
por lo que nosotros sabemos, 
no se comercializa todavía en 
España. Algunos modelos de 
MSX de la segunda genera- 
ción vienen dotados con una 
unidad de digitalización de 
vídeo, por lo que la conexión 
de la cámara de vídeo es di- 
recta. 



¡SVI 






| 
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5ÜSDE INFORMACION 



Cada mes recibimos un 
gran número de cartas de lec- 
tores que nos exponen sus 
problemas con determinados 
programas. Resulta decepcio- 
nante que, en la mayoría de 
los casos se trate de pequeños 
errores de transcripción de 
los programas. Nos 

encontra- 
mos muchas veces con letras 
cambiadas, confundidas u 
omitidas, por lo que os inser- 

np^dAc S6rie , de PUN TOS 
V b y R ° S en ¡os que hemos 
localizado un mayor número 
de erratas. 

, instrucción más con- 

I flicttva es, sin duda alguna el 
macrocomando PLA Y, segui- 
do muy de cerca por DRAW 
En numerosas ocasiones los 
errores de los programas se 
deben simplemente a confun- 
dir la l (ele) con el 1 (uno), la 
u ™ n la v, la o con el cero 
iV), etc. Os instamos a que 
verifiquéis cuidadosamente 
este tipo de líneas. 



- Otra instrucción sita en 

Dr?Á marés de errores « 
rUKb, en que, caso de equi- 
vocación en los códigos que lo 
siguen pueden provocar un 
irremisible CRACK de pro- 
grama. 

- El error ILLEGAL 
FUNCnON CALI (llama- 
da ilegal a una función) tiene 
su causa en muchas ocasio- 
nes, en una línea diferente a 
aquella en la que aparece el 
err ° r - Conviene pues, revisar 
todas las líneas que utilizan 
las mismas variables, o las lí- 

"v¿aR AT 1 s ¡ "Pwce algún 
KhAÜ en la línea del error 
- Pero, sobre todo, e insis- 

TEST DE LISTADOS, ya 
que es una forma segura de 
localizar los errores en vues- 
tros programas. Os recorda- 
mos que el programa TEST 
DE LISTAÓOÍ l apareaó en 
el número 7 de nuestra revis- 
ta. 



Sí, vale cualquier MO- 
DEM (en realidad supongo 
que te refieres a acopladores 
acústicos) para los MSX. Lo 
único que necesitas es un in- 
terfaz RS-232, al que se pue- 
den acoplar todos los «MO- 
DEM» del mercado. El cómo 
utilizarlo es fácil, ya que el in- 
terfaz RS-232 incorpora un 
programa de comunicacio- 
nes, que es el que te permitirá 
realizar las trasmisiones. 



BEE CARD Y SOFT CARD: 



Les rogaría me concreta- 
sen la diferencia existente 
entre los adaptadores de tar- 
jetas BEE CARD y SOFT 
CARD. 

Asimismo, si ustedes co- 
mercializan las tarjetas BEE 
CARD de escritura-lectura y 
el precio de las mismas. 
Manuel Merino Alonso 
OVIEDO 

La diferencia es meramen- 
te de conectores. El funciona- 
miento interno de las tarjetas 
BEE CARD y de las SOFT 
CARD es muy similar, lo que 
hace que, prácticamente, y a 
la hora de hacer funcionar un 
programa contenido en una 
tarjeta, no exista ninguna di- 
ferencia apreciable entre am- 
bos sistemas. 

El problema, y volvemos a 
caer en el conocido problema 
de la incompatibilidad, es 
que las tarjetas BEE CARD 



no pueden conectarse a un 
adaptador SOFT CARD, ni a 
la inversa, lo que provoca que 
los programas aparecidos en 
uno de los formatos no fun- 
cionen con los adaptadores 
del otro formato. 

La elección de un sistema 
u otro debe hacerse, pues, en 
razón al software existente 
en cada uno de los sistemas. 

Pueden servirte además 
otros criterios para elegir un 
sistetma u otro: 

-El sistema BEE CARD 
está ligeramente más avanza- 
do, existiendo en la actuali- 
dad tarjetas de escritura-lec- 
tura, aunque todavía no se 
comercializan en España. 

-El sistema SOFT CARD 
está siendo desarrollado en 
Gran Bretaña. La proximi- 
dad geográfica y de mercados 
hará que todas las posibles 
novedades aparezcan antes 
que sus homologas en forma- 
to BEE CARD, proveniente 
del Japón. 

PROTECCION DE 
LISTADOS 

¿Cómo puedo evitar que 
alguien liste mis programas? 
¿Se pueden eliminar ins- 
trucciones del BASIC? ¿Y 
añadir nuevas? 

Florentino Ramírez 
LA CORUÑA 

Tus tres preguntas están 
muy relacionadas, y son muy 
interesantes; así que vamos a 
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tratar de responderte con de- 
tenimiento. 

Eliminar instrucciones del 
BASIC resulta una tarea muy 
sencilla, ya que la mayoría de 
ellas están parcheadas. Esto 
quiere decir que no toda la 
instrucción se encuentra en la 
ROM, y que tienen, por tan- 
to, un pequeño fragmento en 
la memoria RAM de usuario. 
Modificando adecuadamente 
estos parches, no sólo pode- 
mos eliminar las instruccio- 
nes, sino hacer que hagan'lo 
que queramos. Por ejemplo 
que se apague el ordenador al 
intentar hacer LIST. Eso es lo 
que haremos ahora. 

El parche de la instrucción 
LIST se encuentra en la direc- 
ción &HFF89. Para hacer 
que haga un RESET (apagar 
el ordenador) inserta las si- 
guientes líneas al comienzo 
de tus programas: 
POKE &HFF89.&HC3 
POKE &HFF8A,0 
POKE &HFF8B,0 

Haz RUN a tu programa 
tras haber copiado estas lí- 
neas e intenta hacer LIST. 

Sobre la otra parte de tu 
pregunta, si se podían añadir 
instrucciones al BASIC. Qué 
mejor ejemplo que un ejem- 
plo práctico. En los números 
21 y 22 de MSX CLUB in- 
cluimos una interesantísima 
ampliación del BASIC, per- 
mitiendo hasta 35 pantallas 
entre texto, gráficos, etc. 

Espero que hayan quedado 
satisfechas tus preguntas al 
respecto. 

DESAPARICION DE 
PROGRAMAS 

He jugado en repetidas 
ocasiones sin ningún pro- 
blema con el programa 
STAR RUNNER; pero las 
dos últimas veces que he in- 
tentado cargar el juego me 
ha sido imposible, saliendo 
mensajes de error como 
«Direct statement in file» o 
«Une buffet overflow» y no 
siempre salen en el mismo 
sitio. 

Enrique Muñoz Martínez 
CORDOBA 

En numerosas ocasiones 
los programas desaparecen de 




las cintas en que han sido gra- 
bados, o bien aparecen erro- 
res que en un principio no 
aparecían. Esto es debido a 
que la grabación de los datos 
sobre un soporte magnético 
(cinta o disco) puede desapa- 
recer si sometemos a éste a un 
campo magnético. En general 
existe la creencia de que sólo 
un campo magnético intenso 
puede llegar a borrar los da- 
tos de un cassette o disco; 
pero esto no es así. La exposi- 
ción prolongada a dosis de 
magnetismo débiles puede 
provocar el borrado progresi- 
vo de los datos, llegándose a 
un punto en que el ordenador 
ya no reconoce lo que hay gra- 
bado en la cinta. Recomenda- 
mos, por tanto, que guardéis 
vuestras cintas y discos a una 
distancia prudencial de cual- 
quier fuente de radiación; te- 
levisores, electrodomésticos, 
bafles, imanes, etc. 

El borrado progresivo de 
las cintas también puede ser 
debido a que el cabezal del 
cassette en que lee los progra- 
mas se ensucie, por lo que te 
aconsejo que lo limpies cuida- 
dosamente y ajustes el azi- 
mut. 

Por lo tanto cabe un espe- 
cial cuidado al almacenar 
vuestras cintas con progra- 
mas, y al utilizar los aparatos 
de cassette. 



ATENCION LECTORES 




5&i . 'rm. 



Este es un llamado a los lectores que nos han solicitado 
cassettes y libros y que por algún error en las señas domicia- 
liarias sus pedidos nos han sido devueltos por correo. Asi- 
mismo otros lectores que han remitido sus giros y no han es- 
pecificado qué es lo que solicitaban o bien no daban su do- 
micilio. 



Sánchez, Luis César 
Robles, Feo. José 
García, Ignacio 
Rodríguez, José María 
Gallego, Purificación 
López, Miguel 
Ramos, Enrique 
Iglesias, Juan 
Valle, Oscar 
Llambrich, Josep M. a 
Delgado, Fermín 
Soto, Manuel 
Sosa, Domingo 
Costa, José 
Aguilar, Antonio 
Casarejos, Miguel 

• Clemente, Rafael 

■ Alcantud, Abelardo 
Permanyer, José M. a 

■ Pérez, José M. a 

• Campillo, Bernardo 

■ Cristobalena, Isidoro 

■ Ferreres.José Luis 

- Sáez, Alberto 

• Hernández, Alberto 

• Clavell, Josep Miguel 

- Molina, Arturo 

- Contell, Pilar 

- Arguelles, Juan A. 

- Calatayud, Josefina 
-Orellana, Jesús 

- González, Juan Carlos 

- Bisabarros, Vicente 

- Cámara, Andrés 

- Barros, Felipe 

- Araujo, Alvaro de 

- Beliu, Pedro 



- Soria 

- La Barca Fda. 

- Santander 

- Hellín 

- Bilbao 

- Barcelona 

- Almería 

- Llagostera 

- Barcelona 

- Valencia 

- Algeciras 

- Madrid 

- Las Palmas 

- Mallorca 

- Hospitalet 
-Vigo 

- Alicante 

- Bilbao 

- Barcelona 

- Barcelona 

- Cartagena 

- Sgo. de Com postela 

- Vinaroz 
Segur de Calafell 

- Sabadell 

- Vallgorguina 

- Alicante 

- Ibiza 

- Gijón 

- L'Alcudia 

- Alcalá de Henares 

- Villalonga 

- Lasarte 

- Coraleda 
-Vigo 

- Elcaldes-Engordany (Andorra) 

- Alcantarilla 



A todos estos lectores les rogamos se pongan en contacto 
telefónico o por cualquier otro medio con nosotros a fin dé 
que puedan recibir cuanto antes los cassettes, libros o revis- 
tas solicitados. 
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CON GARANTIA 

/VWsHATlAN TRANSFERSA 




PASAR DE SPECTRUM A MSX: 



-¿Cómo puedo lograr 
que aparezcan en la pantalla 
los caracteres inversos?, es 
decir, cambiando el color de 
tinta por el del fondo. 

-¿Cómo pueden obtener- 
se caracteres FLASH (par- 
padeantes)? 

-Debido a qué tengo al- 
gunos programas del ZX- 
SPECTRUM en que apare- 
ce el comando DRAW 
X,Y,Z. ¿Cómo puedo susti- 
tuirlo en los MSX? 

-Querría tambiénque me 
dieséis información sobre el 
BASIC TUTOR. 

-¿Cómo puedo ampliar el 
BASIC de mi ordenador con 
nuevos comandos? 
Richard Martínez Montoya 
Linares - JAEN 



Cambiar a vídeo inverso 
no se puede hacer directa- 
mente desde el BASIC, es de- 
cir, no existe ningún coman- 
do que permita hacerlo. Sin 
embargo, se puede hacer un 
pequeño programa que copie 
las letras - en inverso en la 
zona de VRAM ocupada por 
los caracteres gráficos. De 
este modo consigues caracte- 
res inversos; pero pierdes los 
gráficos. Este pequeño pro- 
grama podría ser: 
10 FOR X = 2048+8*32 
TO 2048+127*8+7: VPO- 
KE 1024+X, VPEEK (X) 
XOR 255: NEXT X 
20 T$ = «Mensaje a escri- 
bir...» 

30FORI=TOLEN(T$) 
40 PRINT CHR$ 



50 NEXT I 

Para lograr el efecto 
FLASH el programa necesa- 
rio sería mucho más compli- 
cado. En el Spectrum esto se 
consigue mediante una inte- 
rrupción controlada por el co- 
mando FLASH del BASIC; 
pero en MSX esta interrup- 
ción debería ser controlada 
por un pequeño programa en 
ensamblador, cuya longitud 
(no siendo excesiva) no nos 
permite incluirlo en esta sec- 
ción. 

El comando DRAW del 
Spectrum realiza un desplaza- 
miento relativo. Esto se con- 
sigue en los MSX con la op- 
ción de desplazamiento rela- 
tivo del comando LINE. Por 
ejemplo DRAW X,Y,Z sería 
UNE-STEP(X,Y),Z 

El BASIC TUTOR es un 
cartucho que amplia el BA- 
SIC de forma que podemos 
trabajar normalmente con él; 
pero cuando no sepamos 
cómo utilizar una determina- 
da instrucción, no tenemos 
más que escribirla precedida 
de un guión. El ordenador 
nos dará una completa espeá- 
ficación del comando en cues- 
tión. 

Ampliar el BASIC está re- 
servado a los cartuchos de 
ROM, como es el caso de este 
cartucho de BASIC TUTOR. 
Pero, si has leído los números 
de noviembre y diciembre de 
nuestra revista, en los artícu- 
los sobre el BASIC PLUS se 
comenta que es posible «en- 
gañar» al ordenador sin nece- 
sidad de conectar un cartucho 
ROM. 



FICHEROS EN CASSETTE: 



Quisiera saber cómo se 
pueden generar ficheros de 
datos en cassette con los 
MSX. 

David Gadea Boix 
Alzira (VALENCIA) 

Para grabar y recuperar da- 
tos en cinta de cassette exis- 
ten varios comandos muy úti- 
les. 

Para abrir el fichero en 
modo escritura (grabación): 

OPEN "CAS: Nombre" 
FOROUTPUTAS* 1 
mientras que para abrirlo en 
modo lectura: 

OPEN "CAS.Nombre" 
FOR IN PUTAS # 1 

Una vez abiertos los fiche- 
ros podemos enviar o recibir 
datos de ellos, según los haya- 
mos abierto en un modo u 
otro. Para leer datos hare- 
mos: 

INPUT* 1, variables 
y para escribir datos: 

PRINT # 1, variables 

Por último, para cerrar el 
fichero basta con hacer: 
CLOSE # 1. 

Como nos envías un lista- 
do, incluimos aquí el frag- 
mento de programa encarga- 
do de grabar y leer los datos: 

Los datos se almacenan en 
a$(x), b$(x) y c$(x). 

GRABACION 

OPEN "CAS.GUIA" 
FOROUTPUTAS* 1 

FOR R= 1TOH 

PRINT # 1, a$(r), b$(r), 
c$(r) 

NEXTR 

CLOSE # 1 

LECTURA: 

OPEN "CAS.GUIA" 
FOR INPUT AS* 1 

FOR R= 1TOH 

INPUT # 1, a$(r), b$(r), 
c$(r) 

NEXTR 

CLOSE* 1. 

NOTA: Si abrimos más de 
un fichero simultáneamente 
hemos de cambiar el 1 del 
OPEN, INPUT o PRINT y 
del CLOSE por un número 
correspondiente a cada fiche- 
ro: 1,2,3,... 



VAMPIRE. Ayuda al audaz Quülenno a salir 
del castillo del Vampiro, sorteando murció- 
lagos, fantasmas, etc. ün juego terrorífica- 
mente entretenido para que lo pases de mie- 
do. PVP.800Pts. 




HARD 
COPY 

POR JOAQUIN LOPEZ 

Menú* por ventanal tre* 
formato* de copla* simulación 
en blanco y negro copla 
■prlte* reúeflnr colora* 
compatible con cualquier 
Impreaora matriclal. 
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HARD CCPY. Para copiar pantallas. Tres 
formatos de copias, simulación porblancoy 
negro, copia sprites, redefinic. de colores, 
compatible con todas las impresoras ma- 
tricPVP. 2.500 Pts. 



msxclub 






L dé CASSETTES] 


EffiSll 


1 

¡9 




1 5 ■' 

CON GARANTIA / 


^^^^^^^^^^^^^ 



KRYPTON. La batalla mas audaz de las gala- 
xias en cuatro pantallas y cuatro niveles de 
dificultad. Un juego cuya popularidad es cada 
vez mas grande entre los usuarios del MSX. 
PVP. 500 Ptas. 



El secreto de la 



Ü-BOOT. Sensacional juego de simulación 
submarina en la que tienes que demostrar tu 
pericia como capitán de un poderoso subma- 
rino de guerra. Panel de mandos, sonar, tor- 
pedos, etc. PVP. 700 Ptas 



QUINIELAS El mas completo programa de 
quinielas con estadística de la liga, de los 
aciertos, etc. e impresión de boletos. Acertar 
no siempre es cuestión de suerte. PVP. 700 
Ptas. 



SNAKE. Entretenido y muy divertido juego 
en el que Snake procura comer unos núme- 
ros que la engordan Tanto las murallas que 
la rodean como su larga cola pueden ser 
mortales para ella PVP 600 Ptas. 





EL SECRETO DE LA PIRAMIDE. Atrevido 
juego de aventuras a través de los misterios 
y peligros que encierran los laberínticos pa- 
sillos de una pirámide egipcia. ¡Atrévete si 
puedes! PVP. 700 Ptas. 



STAR RÜNNER. Conviértete en el audaz 
piloto interestelar y lucha a muerte, a 
través del hiperespacio, contra las defen- 
sas del tirano Daurus Dos pantallas y 
cinco niveles de dificultad PVP 1 .000 pts. 



FLOPPY. El Preguntón Un verdadero desafio 
a tus conocimientos de Geografía e Historia 
española Floppy no perdona y te costara 
mucho superarlo PVP 1 000 Ptas 



MAD FOX Un héroe solitario es lanzado a 
una carrera a vida o muerte por un desierto 
plagado de peligros Conseguir el combusti 
ble para sobrevivir es su misión. D'.ez niveles 
de dificultad PVP 1.000 pts 



Si quieres recibir por correo certificado estas cassettes garantizadas recorta o copia este boletín y envíalo hoy mismo: 



Nombre y apellidos: 
Dirección: 
Población: 



• • • 



CUP Prov 

□ SNAKE Pías. 600- 

□ EL SECRETO DE LA PIRAMIDE Ptas. 700,- 

□ STAR RUNNER Ptas. 1.000,- 



□ KRYPTON Ptas. 500- 

□ UBOOT Ptas. 700- 

□ QUINIELAS Ptas. 700- 

□ HARDCOPY Ptas25«0- 

jGastos de envío certificado por cada cassette Ptas. 70,- Remito talón bancario de Ptas. 



Tel.: 

□ FLOPPY PVP. 1.000 Ptas. 

□ MAD FOX PVP. 1.000 Ptas. 

□ VAMPIRO PVP. 800 Ptas 



a la orden de Manhattan Transfer, SA 



ATENCION: Los suscriptores tienen un descuento del 10% sobre el precio de cada cassette. 

IMPORTANTE: Indicar en el sobre MSX CLUB DE CASSETTES. ROCA I BATLLE, 10-12 BAJOS. 08023 BARCELONA 

Para evitar demoras en la entrega es imprescindible indicar nuestro nuevo código postal. 



NUESTRAS CASSETTES NO SE VENDEN EN QUIOSCOS. LA UNICA FORMA DE ADQUIRIRLAS ES SOLICITANDOLAS 

A NUESTRA REDACCION. ¡NO SE ADMITE CONTRA REEMBOLSO! 



Tablón de anuncios 



Esta sección de MSX CLUB es de nuestros lectores. Todos ellos tienen derecho a dos inserciones totalmente gratuitas. Las características 
de esta sección no permiten la inclusión de anuncios con fines de lucro. Advertimos que la desprotección y copia de software original es 
un acto delictivo perseguido por la ley. 



Vendo Spectravideo SV-328, 
Super Expander, Unidad de 
disco, cassette especial y varias 
cintas y discos con juegos y 
otros programas. Precio a con- 
venir. Willy Miragall; Av. Uno 
n.° 4, 2.°, 3.° Sta. Perpetua de 
Mogoda, BARCELONA Tel. 
193) 560 53 49 (Desde las 21). 
CP1. 

Vendo Toshiba HX-10, casset- 
te, joystick, 60 programas co- 
merciales, 40 revistas y libro 
MSX por 30.000 Ptas. Vendo 
impresora PHILIPS VW-0020 
más 60 programas (los anterio- 
res) v procesador de textos 
(TASWORD) por 30.000 Ptas. 
David de 15:00 a 20:00 C/. Lu- 
cena n.° 18. 41006 SEVILLA. 
Tlf. (954)63 53 07. CPl. 
Vendo o cambio joystick 
Quickshot II por programas 
MSX. También estoy interesa- 
do en cartucho de ampliación 
de 64 Kb. Juan Manuel Parga 
Fraga. Tlf. (982) 22 28 77. CP1. 
Vendo Spectravideo SVI-328 
con cassette SVI-903, adapta- 
dor juegos Coleco SVI-303, 
joystick, cartuchos y cintas de 
juegos de SVI y Coleco por 
55.000 Ptas. Líquido revistas 
encuadernadas de Ordenador 
Personal, Computing Today 
otras. Antonio Tenes C/Cadar- 
so n.° 62 - 28008 MADRID. 
Tlf. 248 97 511 (noches). CP 1. 
Vendo Sony HB 55P de 16Kb. 
Regalo 4 cartuchos (Road Figh- 
ter, Hyper Sports I, Ping Pong 
y Yie Ar Kung Fu). Precio a 
convenir. Andrés Ortí. Tlf. (96) 
32573 14. C/Julián Peña,n.°16. 
VALENCIA. CP1. 
Vendo curso de BASIC MSX 
en cinta de vídeo Beta. Es origi- 
nal, marca SONY. Pido 8.000 
ptas más gastos de envío si es 
para fuera de Sevilla. Se admite 
talón conformado o giro postal. 
Alvaro Cueto Senra. C/ Madre 
Isabel Moreno n.° 10, 6.° B. 
41005 SEVILLA. CP1. 
Vendo Sony HIT-BIT 10 1P 
por 30.000 Ptas. + 20 juegos 
comerciales + mapas y pokes. 
Interesados llamar al Tlf: (958) 
12 32 15. GRANADA. CP1. 
Cambio Hyper Sport 1 y dos 
cintas de video VHS de inicia- 
ción al MSX por un adaptador 
de tarjeta BEECARD o los si- 
guientes juegos: Super Cobra, 
Time Pilot o Sky Jaguar. Pedro 
Sala Valdés. C/Sirio n.° 30 
28007 MADRID. Tlf: 273 00 
82.CP1. 
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Vendo ordenador Philips 
MSX, 20 cintas con 80 juegos 
comerciales, 200 revistas y li- 
bros, y un joystick Canon. 
Todo por sólo 19.900 Ptas. José 
Luis Rojano, C/ Camorro, 2, 
7.° D. Alarcón. MADRID. 
CP1. 

Vendo VG-8020 en buen esta- 
do, más de 15 juegos Konami, 
más cassette Computone. Todo 
por 40.000 ptas. Llamar por la 
noche. (93) 431 18 72. Jesús. 
CP1. 

Cambio programa Jet Fighter 
de Aadksoft original con ins- 
trucciones en español por uno 
de los siguientes juegos: River 
Raid, Cazafantasmas u otros. 
José Manuel Beneitez. Vega. 
Urb. Maripins, Chalet n.° 16. 
43840 Salou TARRAGONA. 
Tlf: 37 13 39 (977). CPl 
Vendo ordenador Spectravi- 
deo SV-328, data cassette SV- 
904, adaptador a MSX SVI- 
606, un cartucho y muchos pro- 
gramas en cinta por 45.000 ptas 
negociables. Arturo Abós. Tlf: 
(91)759 11 56. CPl. 
Intercambio juegos (HERO, 
Soccer, Profanation, Alien 8, 
Hyper Rally, Ghostbusters, 
Hyper Sports I, II y III, etc. Po- 
seo los mejores de Konami, Ac- 
tivision y Dinamic. Tengo jue- 
gos de arcade, aventura, com- 
bate espacial y más de 10 simu- 
ladores de vuelo (F-16, North 
Sea Helicopter, Flight Simula- 
tor 737, etc.). Interesados escri- 
bir a Héctor Martín Pérez. Cra. 
Gral. de San Miguel 11, 1.°. 
Granadilla de Abona. TENE- 
RIFE (Islas Canarias). CP. 1. 
Cambio juego DECATHLON 
de Activision por alguno de los 
siguientes: Ping Pong, River 
Raid, Hyper Sport II o Super 
Cobra. Siró Garrido Padró. C/ 
Mugakoa D 10." izda. Portuga- 
lete, VIZCAYA. CPl. 
Vendo ordenador y lápiz ópti- 
co SANYO completamente 
nuevos, con garantía de 6 me- 
ses. Regalo joystick y más de 30 
juegos. 45.000 y 19.000 respec- 
tivamente. José Antonio Quin- 
tana. C/ Fuencaliente, 3, 1.°. 
46023 VALENCIA. Tlf: 362 94 
90. CPl. 

Vendo YAMAHA CX5M - 
Computer Music, con sintetiza- 
dor de sonido DX. Ordenador, 
teclado profesional, cartucho 
de composición, cartucho con 
sonidos y cartucho almacén de 
datos. Todo 130.000 ptas. Jor- 



di. C/ Balmes 448, 08022 BAR- 
CELONA. Tlf: 417 42 48. 
CPl. 

Cambio AMSTRAD CPC- 
6128 con pantalla de fósforo 
verde, con ÍVkIo el paquete de 
discos y programas que trae 
consigo y la garantía de Indes- 
comp por un SVI-738 
X'PRESS MSX con pantalla, 
sin cobrar ni pagar nada. Poco 
uso. Tengo varios programas 
en disco; Ajedrez 3D Grand Prix 
3D y otros, Rallyn II, La pulga, 
Skyfox, Spitfire-40, Mini Offi- 
ce, Contabilidad doméstica y 
varios más todos en discos. Mi- 
guel Fernández Palomar, Pza. 
Gutiérrez Somprún, n.° 1, 
l.°A. 47012 VALLADOLID. 
Tlf: 39 81 60. CPl. 
Cambio ordenador Toshiba 
HX-10 en perfecto estado de 
uso por el Spectravideo 728 o 
por otro ordenador MSX que 
tenga las 2 entradas de tipo car- 
tucho, tales como el Canon 
V20, Sony 75 P, Philips VG 
8020, o Dynadata. Tlf: (91) 401 
28 42. Preguntar por Guiller- 
mo. CPl. 

Compro todo tipo de progra- 
mas originales. Si tienes alguno 
que vender llámame al (93) 387 
46 1 1 o escríbeme a c/ Agueda 
Mompel, 30, 4.° 1. a Badalona. 
BARCELONA. CPl. 
Vendo urgente ordenador SVI- 
328 MKII, datacassette SVI- 
904, 5 cassettes de juegos (Sasa, 
Telebunny...), más de 40 pro- 
gramas, joystick Quickshot II, 
manuales. Todo en perfecto es- 
tado y por sólo 38.000 ptas. Pe- 
dro Luis Gomis Faus. C/ Vir- 
gen Murta, 47. 46600 Alcira. 
VALENCIA. Tlf: (96) 241 43 
64. CPl. 

Vendo Sony 32 Kb más 50 jue- 
gos por 32.000 ptas. Angel Sán- 
chez. C/ 4, n.° 1. Tudela del 
Duero. 47320 VALLADO- 
LID. Tlf: (983) 52 01 16. CPl. 
Vendo impresora Philips MSX 
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VW-0020 de 80 columnas. Tie- 
ne poco tiempo y el precio sería 
a convenir. César Toquero Ló- 
pez. C/ Santucho 73-4-C. 
48006 BILBAO. VIZCAYA. 
Tlf: 433 68 24. CPl. 
Contactos. Si deseas apuntarte 
a un club MSX escribe a Oscar 
García Linares, Granada. C/ 
Adelfa, 3, 1. a esc, l.°A. 18006 
GRANADA. CPl. 
Cambio juegos con chicos/as 
de Barcelona y alrededores. Po- 
seo los mejores de KONAMI 
(Knight Mare, Hyper Sports 
III) Ultímate (Gunfrisght, 
Knight Lore y Camelot Wa- 
rriors por otros juegos. Intere- 
sados mandar lista o llamar a 
luán A. López Luque. C/ Alva- 
rado n.° 14, 1° 2 a . 08033 BAR- 
CELONA. Tlf: 350 71 78. 
CPl. 

Contacto usuarios o interesa- 
dos que posean software para la 
transmisión y recepción de 
CWRTTY. Alejandro García. 
Avda. Hilario Ruiz, 46. 15621 
Cabanas - LA CORUÑA. CP2. 
Compro a buen precio (de 5 a 
8.000 ptas.), ampliación de 
64K. También vendo HB 16 de 
Sony, precio a convenir (entre 2 
y 5.000 ptas.). Dispongo de jue- 
gos que cambio o vendo. Pedro 
García Caro. C/. Carlos III, n.° 
17, 4.°B. 30201 Cartagena - 
MURCIA. Tel. (968) 52 02 02. 
CP2. 

Vendo Sony - HBF - 500P 
(MSX11), completo, nuevo, in- 
cluidos manuales y sistema 
operativo (MSXl 1-DISKET- 
TE), sólo proximidades de mi 
población -130.000 Ptas.-. 
José Luis Basterretxea Barroso. 
C/. Iturribide, n.° 12, 2.°, 
drcha. Betxo - BISKAIA. Tel. 
469 43 63 (de2a4).CP2. 
Contacto c/. Club MSX -ase- 
guro respuesta-. Interesados 
escribir a José García Selgaz. 
C/. Niño Jesús, bloque 5, portal 
3, bajos A. Arganda del Rey - 



MADRID. CP2. 
Vendo Karate, Space Walk, 
Laberinto 3 D y les Flics por 
700 Ptas. También un selector 
de antena y un curso de Basic 
-MSX en video-, Antonio 
Montero Batllé. Ciudad Coo- 
perativa, 49, 5.°, 2. a . Sant Boi - 
BARCELONA. Tel. 652 16 94. 
CP2. 

Vendo HIT-BIT-75 SONY 
(manuales conexiones software 
original) y unidad de disco 
3.5". Ofertas: José Búa. Aptdo. 




78. Boiro - 15931 LA CORU- 
ÑA. CP2. 

Contacto Club LSD PRIN- 
TER. Intercambio de software 
e información sobre sistema 
MSX. Todo sobre hardware. 
Apdo. 2093. MURCIA. CP2. 
Compro cartucho de amplia- 
ción de memoria Sony o cual- 
quier otra marca, de amplia- 
ción a 64 K, por 8.000 ptas. Ru- 
bén Parera Roura. Rambla, 12, 

4. °, 2. a . Mongat. Tel. 384 40 49. 
CP2. 

Compro ampliación de 64K. 
Oscar Marina Saiz. C7. Andalu- 
cía, n.° 2, 3.°. Tel. 490 00 19. 
Baracaldo - Bizkaia.CP2. 
Deseo conseguir ordenador, 
unidad de discos y demás peri- 
féricos MSX, nuevos o usados. 
Espero ofertas. A. Dávila. 
Apdo. 274, 45600 Talavera - 
TOLEDO. CP2. 
Vendo Toshiba H X-10, cartu- 
cho Logo Phillips y grabadora. 
También programas, libros y 
revistas. Todo a 45.000 ptas. 
Avda. Castelao, Bl. 112, 12° B. 
Vigo, 9. CP2. 

Cambio cartucho ampliación 
de 16K de Sony y cartucho de 
juego Z«Konami's Soccer, por 
cartucho de ampliación de 64 
K, preferible de Sony. Alberto 
Alaiz Casas. Avda. José Quinta- 
na, s/n. Sadaña - 34100 PA- 
LENCIA - Tel. (988)89 01 91. 
CP2. 

Contacto con poseedor de im- 
presora para realizar listados. 
Pagaré. Anna Vilaseca. C/. 
Veft, n.° 24. Santa Creu de Jo- 
glars - 08519 BARCELONA - 
Tel. 888 00 12. CP2. 
Cambio tres programas en car- 
tucho (Flight Path 737, Super 
Soccer y Super Cobra) , y dos en 
cinta (Ghost Busters y B.C. 
Grogs), además de un Quicks- 
hot 1 1 por Map de Mitsubishi o 
Logo Philips. Cayetano An- 
dreu Laurindo. C/. Ocaña, n.° 

5. El Ejido -04700 ALMERIA. 
CP2. 

Intercambio juegos. Poseo en- 
tre otros: King Lore, Gungfrit, 
Zaxxoñ. David Pacheco Díaz. 
C/. Fray Pedro Vives, n.° 17, 
pta. 5 - Tel (96) 365 57 77. CP2. 
Intercambio programas, mapas 
y poques de juegos sin fin eco- 
nómico. Enviar lista. Pedro 
Luis Muñoz Rosa. C/. Jubila- 
dos y Pensionistas, n.° 3. Mon- 
tilla - CORDOBA. CP2. 
Vendo Philips VG-8020 (80K), 
menos de un año, completo. 5 
cintas originales v otra con 10 
juegos. Todo por 40.000 ptas. 
Pedro Pérez. C/. Ant. Macha- 
do, 19, 8.° Elche - ALICAN- 
TE. CP2. 

Vendo Spectravideo SVQ-328 
80K, cassette SVl-904, Quicks 



Shot 1, 12 cintas de gestión y 
juegos, fuente alimentación y 
manual castellano, 37.000 Ptas. 
Cristóbal García Rodríguez. 
Avda. Europa, n.° 134,4.°, 1. a - 
Tel. (93)336 63 32. Hospitalet 
de Llobregat. BARCELONA. 
CP2. 

Cambio más de 50 programas 
por un cartucho de ampliación 
de 64K. Fernando Alvarez Re- 
guant. Avda. Sta. Bárbara, n." 

41 - 08260 Suria. BARCELO- 
NA. CP2. 

Intercambio juegos MSX tales 
como «Panorama para matar» 
( 1. a y 2. a parte), Athletic Land, 
«Oh Shit», por otros, Claudio 
Vellve Espiga. C/. Gral. Mola, 
n.° 29, 4.°, drcha. BURGOS. 
Tel. (947)26 67 94. CP2. 
Vendo ordenador Philips 
MSX-VG 8000 con amplifica- 
dor de memoria de 16 K c/ 
(poco uso). Regalo más de 30 
juegos comerciales y libros. 
Juan M. a Gorrotxategui. C/. 
Guipúzcoa, 15, 4.° C - 20240 
Ordizia. GUIPUZCOA. Tel. 
(943)88 54 74. CP2. 
Vendo Spectravideo SVI-328 
con cassette, joystick Quicks- 
hot I, perfecto estado, buen 
precio. Llamar al teléfono (926) 

42 49 76 o escribir a C/. Hospi- 
tal, n.° 6, bajo A. Puertollano - 
CIUDAD REAL. CP2. 
Vendo Spectravideo SVl 904, 
Joystyck Quickshot 11, libro de 
programación avanzada, jue- 
gos, cintas de Intro al Basic, 13 
boletines de Club ISIS, manua- 
les en inglés y castellano. Sólo 
39.000 ptas. Txutxki. Tel. (94) 
467 13 84. CP2. 

Compro cartucho ampliación 
de 48 ó 64 K, precio a convenir. 
Luis Benedicto Qurol. C/. 
Campoamor, n.° 45, 2.°, 2. a . 
Hospitalet - BARNA. Tel. 335 
05 70. CP2. 

Vendo Cartucho Track & Field 
II por 3.900; juegos y progra- 
mas educativos a precios eco- 
nómicos. Escribir a Dimas Ra- 
mírez Juan. Plaza de San Ro- 
que, n.° 16-18, 6.°, 2. a . Badalo- 
na - BARNA. Tel. 398 15 40. 
CP2. 

Vendo ordenador MSX, HIT, 
BIT 101 con ampliación de me- 
moria 64K por 27.000 ptas. An- 
tonio. Tel. (93) 652 1694. CP2. 
Cambio por otro juego o com- 
pro programas que simulen la 
sintonía de las películas de 007 
James Bond. Miguel Borrego. 
C/. Abad Racimir, 11. Olot - 
Girona. CP2. 

Vendo Sony HB 75P de 80K, 
libros, programas comerciales 
por 30.000 ptas. Venancio Bi- 
dasoro. C/. Harzubia, 9, 3.". 
Azpeitia - GUIPUZCOA. Tel. 
81 25 06. CP2. 



Especial para nuevos 
usuarios. 

Para que ningún lector 
quede al margen te propo- 
nemos una nueva sección/ 
concurso. 

¡Participa con tu pe- 
queño programa de gráfi- 
cos, sonido, juego o truco! 

BASES 

1. ° Podrán participar to- 

dos nuestros lectores, 
cualquiera que sea su 
edad. 

2. " Los programas se re- 

mitirán grabados en 
cassettes debidamente 
protegidas dentro de 
su estuche plástico. 

3. " No se admitirán aque- 

llos programas plagia- 
dos o editados por 
otras publicaciones. 

4. " Las mejoras a los pro- 

gramas se considerarán 
una aportación al mis- 
mo y se publicarán en la 
sección Línea Directa. 

PREMIOS 

5. " MSX CLUB premiará 

aquellos programas 
publicados con 2.000 
pts. 

6. " MSX CLUB se reserva 

el derecho de abonar 
los premios en metáli- 
co o su equivalente en 
software, haciéndolos 
efectivos a los 15 días 
de publicados. 

FALLO Y 
JURADO 

7. " El Departamento de 

Programación actuará 
como jurado y su fallo 
será inapelable. 

8. ° Los programas remi- 

tidos no se devolve- 
rán, siendo destruidos 
aquellos que no sean 
seleccionados. 
10." El plazo finalizará el 
30 de junio de 1987. 



El basic mano a manoi 



Por Willy Miragall, 



PRINT 
E INPUT (I) 



Por fín un curso de BASIC para todos los niveles. 
Con este curso de BASIC esperamos que los 
principiantes acaben dominando el lenguaje del 
ordenador, y que ¡os que ya lo conocen mejoren 
sus técnicas de programación. 



Al tiempo que inauguramos este 
año vamos a ofreceros una nue- 
va sección que os introducirá 
en el mundo del ordenador y de la pro- 
gramación en BASIC. Esta sección será 
una guía exhaustiva del BASIC en la 
que trataremos, lo más didácticamente 
posible, de todos y cada uno de los co- 
mandos del mismo. En principio, esta 
sección está destinada a aquellos que 
no saben absolutamente nada de infor- 
mática. A aquellos que se enfrentan 
por primera vez con el ordenador. 
Pero los que ya tengáis una cierta soltu- 
ra ante la máquina podéis sumaros a la 
sección en capítulos sucesivos. 

Cada uno de los temas que tratare- 
mos será acompañado por una serie de 
pequeños ejercicios a los que daremos 
solución al mes siguiente de publicar- 
los. Más adelante, debido a la longitud 
de los programas, no podremos publi- 
car todas las soluciones; pero intenta- 
remos aclararlas lo más posible. 

De este modo, al finalizar la serie 
contaréis con un completo curso de 
BASIC y un catálogo de ejercicios re- 
sueltos. Pero vamos ya, sin más dila- 
ción a comenzar con ÉL BASIC PASO 
A PASO. 

1.1 CONCEPTO DE 
ORDENADOR: 

Ante todo, durante el curso, intenta- 
remos ser prácticos, es decir, nos abs- 
tendremos de definiciones en aquellos 
puntos en que sean innecesarias y nos 
centraremos en cómo hacer programas 
de una forma lógica, ordenada y clara. 

Un ordenador es una máquina capaz 
de almacenar información para más 
tarde procesarla. En concreto pode- 
mos darle un conjunto de órdenes (que 
a partir de ahora llamaremos instruc- 
ciones) que el ordenador memoriza 
para ejecutarlas más tarde. Un conjun- 
to de instrucciones que hace algo en 
concreto es lo que denominaremos 
programa. Vamos a dar un ejemplo 
que clarifique todos estos conceptos: 

Cuando queremos hacer un huevo 




frito y cogemos un libro de cocina esta- 
mos siguiendo un proceso similar al 
que sigue el ordenador con nuestros 
programas. 

En este caso, el libro (con las instruc- 
ciones para hacer el huevo frito) es el 
programa, y nosotros, el ordenador. 
Cada uno de los pasos que seguimos 
para hacer el huevo frito es una instruc- 
ción. 

Vamos, siguiendo con el ejemplo, a 
ver ciertas reglas muy importantes que 
deben seguir las instrucciones de un 
programa: 



- El ORDEN DE LAS INSTRUC- 
CIONES NO SE PUEDE VARIAR: 

No es lo mismo calentar el aceite y ti- 
rar el huevo a la sartén hasta que esté 
frito que tirar el huevo a la sartén hasta 
que esté frito y, más tarde, calentar el 
aceite. 

- TODAS LAS INSTRUCCIONES 
DEBEN SER INTELIGIBLES PARA 
EL ORDENADOR: 

Si en el libro de cocina encontramos 
escrito «QGSPDJTLD» no sabremos 
qué hacer. No entendemos el mensaje, 
por lo que nos pararemos sin poder 
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continuar. Lo mismo le ocurre al orde- 
nador si escribimos algo que él no en- 
tiende. 

1.2 NUESTRA PRIMERA 
INSTRUCCION: 

En estos momentos ya podemos co- 
menzar a hablar con el ordenador. Sólo 
nos hace falta saber qué decirle. La pri- 
mera instrucción que entiende el orde- 
nador es PRINT. PRINT es una pala- 
bra inglesa que significa «imprime». 
Cuando el ordenador se encuentra con 
esta palabra «escribe» todo lo que haya 
detrás de ella; pero de acuerdo con 
ciertas normas. 

- EL ORDENADOR GENERARA 
UN RESULTADO NUMERICO 
SIEMPRE QUE LE SEA POSIBLE: 

Así, si escribimos PRINT 2+3 el or- 
denador nos responderá 5, ya que 
siempre que puede calcula el resultado 
de las operaciones matemáticas y lo im- 
prime en su lugar. 

- EL ORDENADOR NO MODI- 
FICARA LO QUE APAREZCA EN- 
TRE COMILLAS: 

De este modo, escribiendo PRINT 
"2 + 3 " aparecerá en la pantalla 2 + 3 , ya 
que, al estar entre comillas el ordena- 
dor no lo modifica, imprimiéndolo en 
pantalla tal y como está. 

Nota importante: Hemos de pulsar 
RETURN (o ENTER) cada vez que 
acabemos de escribir una instrucción 
para que el ordenador la ejecute. 

1.3.1 OPERACIONES 
MATEMATICAS: 

Las operaciones matemáticas funda- 
mentales que podemos realizar con 
nuestro ordenador son: 
+ SUMA de dos o más números. 
- RESTA de dos o más números. 
* PRODUCTO de dos o más núme- 
ros. 

/ COCIENTE REAL de dos números. 
El segundo número no puede ser 
cero. La división se hará con decima- 
les. 

\ COCIENTE ENTERO de dos nú- 
meros. Al igual que en el caso ante- 
rior, el segundo número no puede 
ser cero. El resultado del cociente no 
tendrá decimales, trucándose el re- 
sultado por defecto. 

a EXPONENCIACION. Permite 
elevar un número a otro. 

EJEMPLOS: 

PRINT 17+34-4 (escribe 17+34-4, 

que es 47). 
PRINT 2*4.5 (escribe 2X4.5, que es 

9). Fijaos en que la coma de 

los decimales se representa 

con un punto. 




PRINT 1/3 (escribe 1 dividido por 3, 

que es 0.33333). 
PRINT 1\3 (escribe la parte entera de 

1/3, que es 0). 
PRINT 3a2 (escribe 3 al cuadrado, 

que es 9). 

PRINT 125a (1/3), (escribe la raíz 
cúbica de 125, que es 5). No- 
tad el uso de los paréntesis. Si 
no los hubiésemos puesto ha- 
bría elevado a uno y dividido 
el resultado por 3. 

1.3.2 PRIORIDAD DE LAS 
OPERACIONES: 

Si no indicamos lo contrario, el orde- 
nador seguirá el siguiente orden al ha- 
cer las operaciones: 

- OPERACIONES PARENTIZA- 
DAS: El ordenador realizará en pri- 
mer lugar las operaciones encerra- 
das dentro de paréntesis. Notad que 
se pueden incluir tantos paréntesis 
uno dentro de otro como sean nece- 
sarios; pero no se pueden utilizar 
corchetes u otros símbolos. 

- PRODUCTOS Y COCIENTES 

- SUMAS Y RESTAS 

Cuando se encuentre con operado- 
res de la misma prioridad el ordenador 



resolverá las operaciones de izquierda 
a derecha. 

EJEMPLO: Calcular la media de 7 y 3. 

PRINT 7+3/2 (el ordenador respon- 
de 8.5, que es, evidentemente 
erróneo). El ordenador ha di- 
vidido 3 entre dos y ha suma- 
do 7 al resultado. Deberíamos 
haber hecho: 

PRINT (7 + 3)/2 (el ordenador res- 
ponde 5: resultado correcto). 

1.4 VARIABLES: 

El ordenador cuenta con una serie 
de casillas en la memoria para poder al- 
macenar números. A cada una de estas 
casillas podemos darle el nombre que 
queramos. Por ejemplo, cuando esta- 
mos haciendo un juego de «marciani- 
tos», nos interesa que el ordenador «re- 
cuerde» los puntos que llevamos con- 
seguidos a lo largo de la partida. Pode- 
mos definir, pues, una variable, de 
nombre PUNTOS, en cuyo interior 
esté el número de puntos que hemos 
conseguido. 

Por ejemplo, si queremos tener 2000 
puntos haremos: PUNTOS =2000 

Si queremos ver el contenido de una 
variable podemos hacer PRINT PUN- 
TOS. 

Si recordáis la primera regla del 
PRINT el ordenador intenta generar 
un resultado numérico siempre que le 
sea posible. Como PUNTOS represen- 
ta un número, escribirá el número. Si 
quisiéramos que apareciese en la pan- 
talla la palabra PUNTOS deberíamos 
hacer: 

PRINT "PUNTOS" 

ya que el ordenador no variará lo que 
aparece entre las comillas. 

1.4.1 NOMBRES DE 
VARIABLES: 

Como hemos dicho antes, cualquier 
nombre sirve para una variable; pero 
esto no es cierto del todo. Hay que se- 
guir las siguientes normas: 

-EL NOMBRE DE UNA VARIA- 
BLE DEBE COMENZAR CON UNA 
LETRA. 

Así no son válidos nombres de varia- 
ble como 4 A ¡AY!, etc. 

-SOLO LAS DOS PRIMERAS LE- 
TRAS INDICAN EL NOMBRE DE 
LA VARIABLE. 

Para el ordenador PUNTOS y PUL- 
GAS son la misma variable, ya que las 
dos primeras letras son las mismas. 

-No podemos utilizar como nombre 
de variable el nombre de una instruc- 
ción. (P.E.: PRINT) 
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El basic mano a mano 




1.4.2 LA SENTENCIA DE 
ASIGNACION: 

Se denomina sentencia de asigna- 
ción a la instrucción que coloca un va- 
lor determinado dentro de una varia- 
ble. Por ejemplo: 

PUNTOS=2000 es una sentencia de 
asignación que pone 2000 den- 
tro de la variable PUNTOS. 

Podemos introducir en una variable 
el resultado de una operación matemá- 
tica. Por ejemplo: 
CINCO=3+2 

E incluso podemos dar a una varia- 
ble el valor de otra: 
QUINTO=CINCO 

Tened en cuenta que en este caso el 
valor de CINCO (a la derecha) es el 
que pasa a la variable QUINTO, y no a 
la inversa. Para que esta instrucción 
tenga sentido debemos haberle dado 
un valor a la variable CINCO con ante- 
rioridad. 

1.4.3 USO DE LAS 
VARIABLES: 

A excepción de a la izquierda de las 
sentencias de asignación, el ordenador 
sustituirá el nombre de la variable por 
su valor. Así, si la variable CINCO 
contiene el valor 5: 

SEIS=CINCO+l equivaldría a SEIS 
= 5+1 

De este modo las variables podemos 
utilizarlas en cualquier lugar. 



Ejemplos: 

PRINT CINCO*CINCO (el ordena- 
dor responde 25) 

PRINT SEIS* 4 (el ordenador respon- 
de 24). 



1.5 NUESTRO PRIMER 
PROGRAMA: 

Hasta ahora hemos entrado las ins- 
trucciones al ordenador una a una, de 
modo que el ordenador ejecutaba cada 
una en el preciso instante en que pulsá- 
bamos la tecla RETURN. Pero esto no 
es lo que deseamos que haga el ordena- 
dor. Lo que esperamos que haga el or- 
denador es memorizar todas las ins- 
trucciones para que luego las ejecute 
todas en bloque. Lograr esto es muy fá- 
cil. Veámoslo con un ejemplo: 

1BA=10 

2 AL=15 

3 AR=BA*AL/2 

4 PRINT AR 

Este sencillo programa nos sirve 
ara calcular el área de un triángulo de 
ase 10 (en la variable BA) y altura 15 
(en la variable AL). 

Los números que hemos insertado 
antes de cada instrucción son impor- 
tantísimos, ya que indican el orden en 
que deben ser ejecutadas las instruc- 
ciones. Veamos, línea a línea qué es lo 
que hace el programa AREA. 

En primer lugar, en la línea numera- 
da con un 1, nos encontramos una sen- 



tencia de asignación que coloca un 10 
dentro de la variable BA. 

La línea 2 coloca un 15 dentro de la 
variable AL. 

La línea 3 coloca en la variable AR el 
resultado de multiplicar BA por AL y 
de dividir el resultado por dos. De esto 
modo, AR contiene el área del triángu- 
lo. 

Por último, la línea 4 hace que el re- 
sultado del programa aparezca escrito 
en la pantalla. 

He aquí nuestro programa para cal- 
cular el área de un triángulo de base 10 
y altura 15. Pero..., querríamos aleo 
más, algo que realmente nos fuese útil a 
la hora de calcular el área de un trián- 
gulo. En este caso, si queremos calcular 
el área de otro triángulo deberíamos 
cambiar el programa. Vamos a hacer 
un programa capaz de calcular el área 
de CUALQUIER triángulo. Pero eso 
lo veremos en el número siguiente, en 
la segunda parte del capítulo dedicado 
a PRINT e INPUT. 

EJERCICIOS 

1 .- Calcular con el ordenador la 
siguiente operación: 

25 + 3 (56-7) 
5 (198-189) 

Debe dar 3.822222... 

Utilizando para ello los parénte- 
sis que sean necesarios. 

NOTAD que el ordenador no su- 
pone operaciones como hacemos 
nosotros. Para el ordenador 3(56- 
7) no significa nada, y debemos sus- 
tituirlo por 3 '(56-7). 

2.- Asignar a las variables A, B y C 
los valores 1,2 y -3 respectivamente y 
calcular el resultado de la siguiente 
operación: 

Y . -B+VB ¿ -4AC 



Debe dar «casi» 1. 

3 - Escribir 10 nombres válidos 
de variables. 

4 - Hacer un programa que cal- 
cule el área de un rectángulo de 
base BA= 12 y altura AL=56. 
AR=BA*AL 

Debe dar 672. 
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Programa 



Por Juan M. Navas 



HALCON 
CALLEJERO 



Juego basado en la famosa serie televi- 
siva en el que tienes que demostrar tu 
habilidad y tu puntería, cosa nada fácil 
de conseguir sobre todo si pilotas la fa- 
bulosa moto. 



i.| »tii Mm SiUfjire mi 
20 'tt por J.K. Navas tt 
30 ttt para «SX-CLUB ttt 

40 tttttttttttttttttttttm 

50 PEM UU INSTRUCCIONES ttt 
60 SCREEN2,0:OPEN U GRP:"AS#1 
70 C0L0P15. 1,1 
80 GOSUB450 

90 LINE'i5,0>-(245,30),ll.BF 
100 LINE(15,40)-(245,191),10,BF 
110 LINEÍl5,5)-(245,15),i2,BF 
120 DRfiWBHl?, 7" ¡ PRINTtl , HSX-CLUB DE 
PROGRAMAS — ": BEEP 

130 COLORI : DRAWBM50. 1 7" • PR INT# i , "JUAN N 
ANUEL NAVAS-86" 

140 COLORI : 0RAW"B«51, 17" : PRINTtl , -JUAN H 

ANUEL NAVAS-86" 

150 COLOR 4 

160 RESTORE400 

170 F0RVV=1T03 

180 READNL 

190 F0RZ=1T0NL 

200 READEt 

210 F0RX=1T0LEN(E$) 

220 XX=Xt5+60:Y=Zt 8+50 

230 PUTSPRITE1, (XX+4,Y-4) ,1,1 

240 DRAH"B«=XX;,=Y;" 

250 A*=MD$(E*.X,1) 

260 PRINTtl, A$ 

270 K=ASC(Af)-32:IFK>90THENKs90 
280 PLAY'V 8L64N=K;","V4L64N40" 
2°0 FORT=1TO30:NEXT 
300 NEXT 
310 NEXT 

320 PUTSPPITE1, (-8,81,4,1 
330 IFVV=6THEN370 

340 COLOR 1 :DRAW"BM24. 181 ":PPINT*1 , " 

(Pulsa una tecla) "¡C0L0R4 
350 IFINKEY«=""THEN350 
360 LINE(15,40)-(245,191),10.BF 
370 NEXT 
380 DRAWS4A0" 
390 GOTO480 

400 DATAH," mmumtmttmt », 
" ttt INSTRUCCIONES ttt V ttttttt 
tttttttttttttt V 




Te presento un juego Vían 
tástico en el que ten- Vdrás que demos 
trar tu ha- Vbilidad y puntería." 
410 DATA " Te resultará muy difí-V 
cil conseguir una buena "."puntuación. 
",11," El juego está basado enVla se 
rie televisiva «EL ", "HALCON CALLEJERO 
> y con- Vsiste en destruir el mayor" 
."minero posible de adversa-". "rios. " 
420 DATA ■ Con los cursores con- ","t 
rolas la HOTO y con el "."espaciador e 
1 DISPARO. V Si tienes JOTSTICK p 
ue-\"des utilizarlo." 
430 DATA 13, " Debido a un exceso de hip 
erpro-", "pulsión el HALCON CALLEJERO se 



ve "."envuelto en un gran apuro: está en 
"."LA CUARTA DIMENSION y debe plantar'," 
cara a varios OVNIS que quieren Vdes 
truirlo. 

440 DATA " La batalla se hace más ti 
tánica", "y emocionante a medida que pasa 

el", "tiempo y EL HALCON CALLEJERO sigue 
"."con vida. ",' 
Piénsatelo mucho antes de pul- "."sar 

la TECLA pues tu vida corre \"P E 
L I G P 0. 

450 PESTGPE470:FOPZ=1TQ8:READA:T$=T*+CHP 

$<A):NEXT:SPRITE$(1>=T$ 

460 RETURN 

470 DATA4. 14, 31, 62, 124, 184, 144, 224 
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Programa 



«IB It nlQ.rP». [. | a 00 nio» 



"W*i*t. 1. 1 1 1 -6«: oe'MCN 4^ 



480 m <»»PRESENTACI0Nt»t»» 

490 COLORI, 15. ! : 5CREEN2 

590 DRAWCI BM65, 70F3D7L3U10BM75. 70F3D25 

L5H3P5Ü25BH65 . 85P5D3L2D 1 0L5H3R5U 10" 

510 DRAW'Cl BM 00. 75F3D20L5H3R5U20BN92, 7 

5LS63D4P3U2E3P4 H2BMB0. '5R5U10R10D3L7D1 

0L5H3" 

520 DRAU-Ci BN! I 0. 70F3O 1 7L3U20BW 1 07 , Q5R 1 
3U5F3D5L13H3 

530 0PAM-C1 BH133, 75R5F3L563D9H3U9E3BH14 
5, 7 5 C 3D5L5H3R5U5BM145,85F3D5G5L10H3R10E5 
U5 

540 DRAW'Cl BM158.75R5F3L5G3D ( >H3U t 'E3Bí117 

0,75F3D1565L10H3R!0E5U*15" 

55? DRAW'C 1BH80.80F3D15L5H3R5U15BM195. 

n ? r 3D25L5H3R5U25' 

560 RAIN T '0.01 

57? A$= ■■«toto m T1O0O4A-2B-4O5C8E-2C2O4 

¿-2B-405C8Q4A-2.A-2B-405C8E-2C2C2E-4F8C2 

.05C204A-305D9E-¿D4C404B-405C204A-305E-8 

F4E-4D4C8Q4B-805C204A-3Q5D8E-4D4C404B-40 
5C!" 

59? B$= " V13Tí90G3A-2B-4Q4C8E-2e2O3 
IB— in4C3C3A-2. A-2P-4G4CEE-2C2C2E-4FPC2 
.O^C203A-304D8E-4DaC¿0;B-404C2D3A-30¿E-8 
P4E-4D4C803B-B04C203A*304D.BE-4D4C403B-4D 

4c: u 

5°0 C 'LAYA$.B$ 

600 DRAÜ»C10BH65, 122H2L6G2D16F2P6E2BM70, 
140U18E2R6F2D18U10L10BH 85, 120D20R5B1 '5 
, 120D20P56H115, 120L10D10R5L5D10R10BM130, 
!2íiDiB62L4H2ü5BH145aZ0L10Dl#!l5L5DliRÍ0B 
H150, !40L'20 Cl 8F2D652L9F3F2D8BM167, 120R6F2 
P1662L6H2U16E2' 

610 L!NE(40.30)-'60,50),4,BF:LINE(70,30) 
-(°0.50),2.BF:LINE!100,30)-(120,50),10,B 
F:LINE (130,30) - ( 150, 50} , 6, BF: LINE (160, 30 
)-(lB0,50),13.BF 

620 LINE (70, 160)- '90,180). 4, BF:LINEí 100, 

160)-(120.180),2,BF:LINE(130,160)-(150,1 

B0).10,BF:LlNE(160,160)-íl80,180),6,BF:L 

INE(190,160)-(210,180),13,BF 

63? CLOSE 

¿40 FCRA=1TO'000:MEXT 
650 COLORIS. 1,1 
660 E-CREEN l:KEY OFF 

670 LOCATE 3, 10:PPINT"¿JOTSTICK CURSOR 
ES 7 ' 

680 X$= I NKEYS 

6°0 1=1+1 : IFI >13 THEN 1=1 

700 VDP(7)=I 

710 IF X$=" J-OR X*=Y THEN CT=1:6OTO740 

720 IF X$="c"DR X*="C" THEN CT=0:6OTO740 

730 GOTO 680 

7 40 COLORIS, 7,1 

750 REM»»»»»INICIACI0N****** 




760 0PEN"GRF: "AS«1 : SCREEN2, 2 

770 RESTORE 1590 :F0F K=l TO 7 :B*="":F0R 

l-m 32 íREAD At:B$=B*+CHR$(VAL("| í H"+A$ 

)):NEXT:SPRITE$ (K)=B$: NEXT 

780 LINE(0.0)-(255,25),1.BF 

790 L!NE(0,25)-'255,70),8.BF 

800 CIRCLE(145,40).10.10:PAINT(145,40),1 



810 ÜRAW H C13BH0.72R255U10H220, 5011210,6011 

l°0,50H180,60!1160,50l1150,70f1130 t 50G10H20 

G30H20G10H20G30":PAINT(100,65),13 

820 DRAW'C 4BM120, 7211250, 11011120,7211250, 

150M120. 72Í1200, 191H120,72H140, 191N120J2 

M90, 191M120.72M40, 1 91M120. 72M0, 150M120.7 

2110,110" 

830 LINE(0.170)-(255,191),1,BF 

840 DRAW'C 4BH0,72R255BI10,80R255BH0,100R 

255BH0, 130R255BM0, 170R255" 

850 Y=90:R= 2:XE=256:Y2=B5:V=10:Y3=120:R 

1=3: XA=256:H1=4 

860 ON SPRITE 6OSUB1300 

870 '»»»»M0VIMIENT0»**** 

880 'Í***DE LOSttSttlttt 

890 '*t**OVNIS*ít******* 

900 Y2=Y2+R: E=E+ 1 : Y3=Y3+R1 : F=F+i 

910 IF E>=K THEN E=0:K=INT(RND(1) Í50) :R= 

-R 

920 IFF>=QTHENF=0: Q=INT (RND ( 1 ) 130) : Rl=-R 
1 

930 IF Y2<=70THEN : Y2=Y2+4: R=-R 
940 IFY3<=70 THEN:Y3=Y3+4:R1=-R1 
950 IF Y2>=150 THEN Y2=Y2-4:R=-R 
960 IFY3>= 150THENY3=Y3-4:R1=-R1 



970 IF. Y<0 THEN Y=0 

980 PUTSPRITE 1 ,(57, Y), 1, 1 

990 PUTSPRITE 2 ,(200,Y2),1 , Hl 

1000 PUTSPRITE20,(180,Y3),1,H1 

1010 GOSUB 1090 

1020 PUT SPRITE8,(XB,YB),6,3 

1030 PUT SPR1TE9,(XE,YE),12,5 

1040 PUTSPRITE21.(XA,YA),6,5 

1050 GOTO900 

1060 'ttlINOVIHIENTO DEL**» 
1070 ? tHALCON CALLEJERO**** 
1080 't**Y DISPARADORES**»* 
1090 D=STICK(CT) 

1100 IF D=l THEN Y=(Y-4)M0D 192 

1110 IF D=5 THEN Y=(Y+4)M0D 192 

1120 IFY<70THENY=70 

1130 IFY>150THENY=150 

1140 IFY2<70THENY2=70 

1150 IFY3<70THENY3=70 

1160 IFY2>150THENY2=150 

1170 IFY3>150THENY3=150 

1 180 IFY2>=Y-2ANDY2<Y+2ANDDE=0THENGOSUB1 

460 

1190 IFY3>=Y-2ANDY3<Y*2ANDDA=0THENGOSUB1 
460 

1200 IF XB>256 THEN GOSUB1370 

1210 IF XE<0 THEN GOSUB1370 

1220 IFXA<0THENGOSUB1370 

1230 IF DE=1 THEN XE=XE-25 

1240 IFDA=lTHENXA=XA-25 

1250 IF DI=1 THEN XB=XB+25: 6OTO1270 

1260 IF STRIG(CT)=-1 THEN SCUND6, iHF: SOU 

ND7^H7: S0UND8, &R10; SOUND9, ÍH10: SOUND10, 

ítH 1 : SOUND 1 2 . 4H40 : SOUND 1 3 . ít H0 : SPR I TEON : 6 

OSUB1280 

1270 RETURN 

1280 YB=Y+ 2:XB=77:DI=1 
1290 RETURN 

1300 IF XBM60 THEN S0UND6,!*HF:S0UND7,*H 

7:SOUND8.iH10:SOUND9,!<H10;SOUND10,í ( H10¡S 

OUND12,iH40:SOUND13,4H0:PU=PU+100 

1310 IFPU=1000THENV=VM: H1=2:R=8:R1=9 

1320 IFPU=2000THENV=V+1:H1=6:R=10:R1=11 

1330 IFPU=3000THENV=y+l:Hl=7:R=8 :R1= 9 

1340 IFPU) 4099 THEN:DRAW n ClBt160,90 n :COL 

ORI : PRINT#1 , "HALCON CALLEJERO" : DRAW"BM61 

, 90" ¡ PRINTil, "HALCON CALLEJERO" : FQRA= 1TO 

5000: NEXT: COLORIS, 1 : CLEAR: GOTO650 

1350 IF XE<70 THEN S0UND8.3: SOUND10, 16:S 

OUND6,30:SOUND7,199:SOUND12,56:SOUND13,0 
: IFV=0THEN1500 

1360 IF XA<85-THEN S0UND8, 3: SOUND10, 16: S 

0UND6, 30: S0UND7, 199: S0UND12, 56: S0UND13, 

:V=V-1:IFV=0THEN1500 

1370 IFDI=1THENYB=209:DI=0:XB= 50 

1380 IFDE=1THENYE=209:DE=0:XE=256 
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1390 IFDA=1THENYA=209:DA=0:XA=256 
1400 LINE(0,0)-(255,20),1,BF 
1410 LINE (0, 175) -Í255, 1911,1, BF 
1420 SPRITE OFF 

1430 PSEK100, 10) : PRINT#1 , "PUNTOS: ";PU 
1440 PSET ( 100, 180) , 1 ¡ PRINTI1, "VIDAS: V 
1450 RETURN 

1460 DE=1:XE=190:YE=Y 2+3: DA= 1 : X A= 170 : YA 
=Y3+3 

1470 SPRITE ON 
1480 RETURN 

1490 'tmtmtFiNALmmm 

1500 COLOR 15,1 ,1:SCREEN 1 
1510 LOCATE 9, 8: PRINT "THEN END" 



1520 LOCATE 6, 12:PRINT"PUNT0S: "¡PU 

1530 LOCATE 4, 16:PRINT"0TRA PARTIDA S/N" 

1540 X$= INKEYi 

1550 IF U='S n OR X$=V THEN CLEAR: GOTO 
650 

1560 IF X$="n" OR X$="N" THEN END 
1570 GOTO1540 

1580 ' ttttDATA DE SPRITESttt 

1590 DATA0,0,0,0,1,1,1 I 3,7,F7,FF,F,36.4B 

,48,30, 0,0,0,0. 80, 80,0, 90, C8.3E,FF,E0, 98 

,A4,24,18 

1600 ÜATA0,0,0,0,3.7,F,7F,EA,7F,F,7,B,8, 
10,0,0,0,0,0,C0.E0,F0,FE,AF,FE,F0,E0,D0, 
10.8,0 



I Test de listado 




1610 DATA0, 0,0,2,3,0,3,0,3,2,0,0. 0,0. 0,0 
,0.0,0,0,0,FE,FF.FE,0.0,0,0,0,0,0,0, 3, 
2,3,2,3,0,40,41, 41, FFJF, 1,7F, 1F,A,7.E0. 
A0.E0,A0,E0,80,80,C0,C4,C8,54.EC,f r C.í : E.B 
4,F8 

1620 DATA 0,0,0,0,0.7F,FF,7F,0,0,0,0,0,0 
,0,0,0,0,0,40,C0,0,C0,0,C0,40,0,0,0,0,0, 


1630 DATA0,0,0,81,83,FF,FF,3,1,0.0.0.F,8 
,3B.2A,0,0,0,C0,E0,E0.E0,E0,C0.80,80,80, 
F8.88.EE,AA 

16*0 DATA3. 7. 3, 8, E3.37, 26,3.3.3,4,9,12,9 
,4,19.80,80,80.0.80,C0,A0.90.90.90,A8.28 
,0,0,80. 



rEST DE 1 l&TA'DOS. Para usar el Test de Listado qftc publicamos .il final de cada programa debe cardarse el programa 
correspondiente publicado en nuestro numero 7 del mes de noviembre, pág. 28. 





" Ü 


160 


- 43 


310 


-131 


460 


-142 


610 


-203 


760 


- 49 


910 


- 61 


1060 


- 58 


1210 


-253 


1360 


-247 


1510 


- 76 


20 


- 58 


170 


- 28 


320 


-216 


470 


-130 


620 


- 11 


770 


-254 


920 


-153 


1070 


- 58 


1220 


-249 


1370 


- 40 


1520 


- 72 


30 


- 58 


180 


- 33 


330 


-152 


480 


- 


630 


-180 


780 


-229 


930 


- 40 


1080 


- 58 


1230 


- 50 


1380 


- 1 


1530 


- 82 


40 


- 58 


190 


- 80 


340 


-229 


490 -105 


640 


-233 


790 


- 48 


940 


-141 


1090 


-188 


1240 


- 38 


mi 


-241 


1540 


- 87 


50 


- 


200 


-240 


350 


-241 


500 


- 10 


650 


- 87 


800 


- 44 


950 


- 61 


1100 


-100 


1250 


-250 


1400 


-224 


1550 


-111 


60 


- 47 


210 


-255 


360 


-187 


510 


- 43 


660 


-200 


810 


-245 


960 


-162 


1110 


-112 


1260 


- 4 


1410 


- 56 


1560 


-247 


70 


- 87 


220 


- 86 


370 


-131 


520 


-129 


670 


- 87 


820 


-105 


970 


- 24 


1120 


-160 


1270 


-142 


1420 


-178 


157* 


-161 


80 


- 94 


230 


-199 


380 


-250 


530 


-218 


680 


- 87 


830 


- 51 


980 


- 82 


1130 


- 62 


1280 


-206 


1430 


- 62 


1530 


- 58 


90 


-245 


240 


-182 


390 


-120 


540 


-162 


690 


-192 


840 


- 68 


000 


-123 


1140 


- 4 


1290 


-142 


1440 


-101 


1500 


-100 


100 


-187 


250 


- 82 


400 


- 23 


550 


-183 


700 


-105 


850 


- 33 


1000 


-120 


1150 


- 6 


1300 


-190 


1450 


-142 


1600 


- 51 


110 


-236 


260 


- 87 


410 


- 8 


560 


- 94 


710 


-189 


860 


- 16 


1010 


-225 


1160 


-162 


1310 


-173 


1460 


- 3 


1610 


-231 


120 


-166 


270 


-105 


420 


- 15 


570 


-227 


720 


-174 


870 


- 58 


1020 


-244 


1170 


-164 


1320 


-157 


1470 


- 92 


1620 


-255 


130 


- 7 


280 


-188 


430 


-184 


580 


-233 


730 


- 65 


880 


- 58 


1030 


- 1 


1180 


-204 


1330 


-138 


1480 


-142 


1630 


- 42 


140 


- 8 


290 


-154 


440 


-167 


590 


-184 


740 


- 93 


8°0 


- 58 


1040 


-255 


1190 


-202 


1340 


-100 


14<>0 


- 58 


1-640 


- 13 


150 


-210 


300 


-131 


450 


- 89 


600 


- 87 


750 


- 


900 


-107 


1050 


- 30 


1200 


- 47 


1350 


- 19 


1500 


-104 T 


OTAL: 


19535 



SUSCRIBETE A 

Suscribiéndote no sólo tienes la seguridad de tener todos los meses tu 
MSX CLUB DE PROGRAMAS en tu casa sino que recibirás 12 
números pagando sólo 10 



BOLETIN DE SUSCRIPCION MSX CLUB DE PROGRAMAS 











N. 



Provincia 



Nombre y apellidos 

Calle 

Ciudad 

D. Postal Teléfono 

Deseo suscribirme por doce números a la revista MSX CLUB DE PROGRAMAS a partir del número . 

que pago adjuntando talón a la orden de: MANHATTAN TRANSFER, S.A. - C/f Roca i Batlle, 10-12 - Ó8Ó23 Barcelona 

Tarifas: España por correo normal Ptas. 2.250,— 

Europa por correo normal Ptas. 2.600 — 

Europa por correo aéreo Ptas. 3.250 — 

América por correo aéreo USA$ 35USA$ 

Importante: Colocar en el sobre: Departamento Suscripciones MSX CLUB. NO SE ADMITE CONTRAREEMBOLSO. 
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Programa 



iPor D. Garcíai 



MAD JUMPER 



Un programa breve pero que sintetiza los principales 
elementos estructurales de un juego de una manera sen- 
cilla y eficaz, demostrando la evolución de nuestros pro- 
gramadores concursantes. 

Para mover a la izquierda pulsa "O"; a la derecha "P", 
arriba "Q" y abajo "A". Pero también cuenta con una 
opción de redefinición de teclas por lo que tú mismo 
puedes cambiar los mandos. 



IJ 'tttt MAD JUMPEP Mil 
20 '» POP D. SARCIA t 
30 '* PARA MSX-CLUB I 

40 'ttmtmmmtmt 

50 C0L0P15, 1,1: SCREEN2, 2: DEFUSR=43054 1 : D 
EFUSR1=*H41 : DEFUSR2=fcH43: DEFUSR3=60001 ! : 
A=USP3(0):X=121:SC=0:SA=0:P*=V:L$=V 
60 A=USR1(0):A=USR(0):A$="NIVEL 1 2 3": 
B$="DEM0STPACION":C$="C0MENZAR":D$=" (C) 
D5C 1°86':F$='DEFINIR TECLAS": OPEN'GRP: " 
ASI1 

70 FORN=70TO7 1 : PRESET (N, 90) : PRINTli . A*: P 

PESET(N,110):PRINTtl,B$:PRESET(N,130):PR 

INTii , Ci: PPESET <N+9, 180) : PRINTI1 , D$: PRES 

ET(N.150):PRINTtl,F$:NEXTN:A=USR2(0):6OS 

UB80:PLAY\0":5OTOil0 

80 IFXZO#THENRETURNELSEXZ=XZ+l:B$=-v=nj 

164o5fac':FORN=0TO12:PLAYB$:IFINKEY$=" " 

THENRETURNELSENEXTN 

90 A$='vl2164o=n;ceg":B$="vl2164o=n-4;ce 
Q':C*="vl2164o5fac , :F0RN=lT08:PLAYA$,B$, 
C<:IFINKEY$=" "THENRETURNELSENEXT: F0RN=8 
T01STEP-1:PLAYA$,B$,C$:IFINKEY$=" "THENR 
ETUPNELSENEXTN 

100 B$='v=n;164o5fac":F0RN=12T04STEP-l:P 
LAYB$:IFINKEY$=" "THENRETURNELSENEXT: RET 
URN 

110 PUTSPRITE0, (50,84) , 10, 1:PUTSPRITE1, 

X,85),8,0:A$=INKEV$ 

120 IFX=121ANDA$=VTHENX=137:GOTO160 

130 IFX=153ANDAt='o-THENX=137!60T016i 

140 IFX=137ANDA$="p'THENX=153 

150 !FX=137ANDAf="o"THENX=121 

160 IFA$=CHR* ( 13) THENY=84: 6OTO180 

170 GOTO110 

180 IFX=121THENNI=10:LE=l:IFPi=0THENR2=5 
:Pl=Pt*l 

190 IFX=137THENNI=13:LE=2:IFP2=0THENR2*2 
0:P2=P2*1 

200 IFX=153THENNI=17:LE=3: IFP3=0THENR2=3 
0:P3=P3*1 

210 PUTSPRITE0,(50,Y),2,1:A$=INKEY$ 
220 IFY=84ANDA$='a'THENY=104:GOTO280 
230 IFY=123ANDA$=-a"THENY=144 
240 IFYM04ANDA$= , q'THENY=84 
250 IFY=123ANDA$= , q , THENY=104 




260 IFY=104ANDA*='a'THENY=123 

270 IFY= 1 44ANDA$= " q " THENY= 1 23 

280 IFA$=CHR$(13)THEN300 

290 GOTO210 

300 IFY=84THENGOTO110 

310 IFY=104THENDE=1 

320 IFY=123THENDE=0 



330 IFY=144THEN6OTO750 

340 C0L0R5, 5, 5: SCREEN2: DEFUSR=43079 ! : A=U 

SR (0) : C0L0R15: A$='PUNT0S' : B$="NIVEL' : C$= 

"SALT0":F0RN=23T024:PRESET(N, 141) ,9:PRIN 

Til , Ai: PRESET (N, 153) , 15: PRINTI1 , B$: PRESE 

T(N,162),15:PRINTtl,C*:NEXT:GOTO370 

350 LINEÍ73, 141 ) -(88, 151) ,9,BF:F0RN7.=65T 



1 



8 



066:PRESET(NZ V 141) y 15: PRINTt 1 f SC: NEXTNX: 
RETURN 

360 LINE (66, 162) -(86, 174) , 9, BF: F0RNX=67T 
068:PRESET(N%, 163) , 9: PRINT41 , SA: NEXTN7.: R 
ETURN 

370 FORN=0TO3: PUTSPRITEN, (255, 160) ,0,0: N 
EXTN:F0RN=4T07:PUTSPRITEN, (255, 176) , 0, 0: 
NEXTN 

380 F0RNX=67T06B: PRESET (N7., 153) , 9; PRINT» 

1,LE:NEXT:C0L0R15 

390 SA=SA+1 : 6OSUB360: 6OTO420 

400 DE=1:NI=10:F=30:6OTO4?0 

410 DATA 170,15,190,15,200,15,0,0,16,16, 

16, 250, 250, 9: RESTORE410: FORN=0TO13: READD 

: SOUNDN, D: NEXT: S0UND7, &B001 1 1000 

420 DATA 170,15,190,15,200,15,0,0,16,16, 

16, 250, 250, 9: RESTORE420: FORN=0TO13: READD 

: SOUNDN, D: NEXT: S0UND7, &B001 11000 

430 IFDE=1THENF=INT (RND ( 1 ) t50) : 11=3: X=10: 

Y=58:PUTSPRITE29, (230,0), 1,8:6OTO490 

440 F=8:M=3:X=10:Y=58:Z=200:6OSUB480 

450 A$=INKEY$: IFA$=R$ORA$=L$THENF=F+i 

460 2=Z-1 : IF INKEY$=" 'THEN6OTO490 

470 IFZO0THENGOTO450ELSE490 

480 PUT SPRITE10,(X,Y),10,2:PUT SPRITE 1 

1,(X,Y+16),10,M:RETURN 

490 RESTORE530: FORNX= 1T08: READX 1 : READX2: 

READH: READY1 : F0RV7.=X 1TGX2: Y=Y+Y1 : X=V7.: 60 

SUB480:NEXM,NZ 

500 IFINKEY$=CHR$(13)THENBEEP:F=F+10 
510 RESTORE540:FQRN7.=96TO120:Y=Y-F/NI:X= 
N7.:6OSUB480:NEXTNZ 

520 F0RN7.= 1 T06 : READX 1 : READX2: READH : READY 
1 : F0RV7.=X 1T0X2: Y=Y+Y1 : X=VX: GOSUB480: NEXT 



530 DATA10,20,3, .25,20,30,4, .4,30,40,5,. 
8, 40, 53,5, 1. 1,53,63, 4, .28,63, 67,3, 0,67, 8 
3,6,-.l, 83,96, 7,-.3 

540 DATA 120,130,7,-.5,130,140,7,-.1,140 

,150,7,. 5,150,170,7, 1,170,180, 7, 2,180. 20 
3,7,4 

550 A(SA)=Y-140:Y3=Y-140:Y5=Y:IFY<160THE 
NFORY=Y5TO160STEP4:X=X+.5:6OSUB480:NEXT 
560 DATA200, 200, 200, 245, 164, 64, 64, 23, 23, 
0,0,0, 100, 0: RESTORE560: FORN=0TO13: READD: 
SOUNDN, D: NEXTN 

570 DATA 12,12,11,11,9,10,11,11,12,12,20 
, 20: RESTORE570: FORN=0TO5: READA: READB: PUT 
SPRITE10, (X-8, 144) , 15, A:PUTSPRITE1 1, (X+7 
,144),15,B:FORH=0TO30:NEXTH,N 
580 SOUND 7,254:S0UND8,15 
590 DATA 200,200,200,245,164,64,64,23,23 
,0,0,0, 100, 100: RESTORE590: FORN=0TO13: REA 
DD: SOUNDN, D: NEXTN 

600 IFDE=1THENFORN=0TO400:NEXTN:CLOSEI1: 
GOTO50 

610 FORSC=0TOY3:5OSUB350:NEXTSC 
620 IFSA>=3THENA$='Pulsa RET":FORN=130TO 
131:PRESET(N,165),5:PRINTI1,A$:NEXTN:A$= 
V12L640=N;C":F0RN=1T08:PLAYA$:NEXTN:G0T 
0640 

630 IFINKEY$=" "THEN390ELSE630 

640 IFINKEY$=CHR$ ( 13) THENC0L0R15, 1 , 1 : SCR 

EEN2:CLSELSE640 

650 A$="SALTO 1";B$="SALTD 2":C$="SALT0 
3":D$="REC0RD":E$='Pulsa Space" : F$="NIVE 
L":A=USR1 (0) :DEFUSR=43054' :A=USR(0) 
660 FORN=70TO7 1 : PRESET (N. 90) : PR INTI 1 , A$: 



PRESET(N,110):PRINTil,B*:PRESETlN,130):P 
RINTtl,C$:PRESET(N,150):PRINTIl,D$:PRESE 
T(N+4,180):PRINTtl,E$:PRESET(N+10,165):P 
RINTi 1 , F$: NEXTN 

670 IFA(1XA(2)ANDA(1XA(3)THENR1=A(1):6 
OTO700ELSEIFA (2)< A( 1 ) ANDA (2XA (3) THENR1 
A(2):GOTO700 

680 IFA(3XA(1)ANDA(3XA(2)THENR1=A(3):G 
OTO700:ELSEIFA(1)=A(3)ANDA(3)OA(2)THENR 
1=A(3):GOTO700 

690 IFA(3)=A(2)ANDA(2)=A(1)THENR1=A(1)EL 
SE I F A (3 ) = A ( 2 ) ANDA ( 2 ) X A (1 ) THENR 1 = A < 2 > ELS 
EIFA(2)=A(1)ANDA(1)XA(3)THENR1=A(2) 
700 IFRKR2THENR2=R1 

710 COL0R8: FORN=130TO131 : PRESET (N, 90) :PR 

INTI1,INT(A(1)):PRESET(N,110):PRINTI1,IN 

T(A(2)):PRESET(N,130):PRINT#1,1NT(A(3>): 

PRESET (N, 150) :PRINTil, INT(R2): PRESET (N, 1 

65) : PRINT41 , LE: NEXTN: A=USR2 (0) 

720 IFRE2<-30THENP3=0 

730 IFRE2<-70THENP2=0 

740 IFINKEY$=" "THENCLOSEi 1 : 6OTO50ELSE74 



750 PUTSPRITE0. (0, 0) , 0: GOSUB780 

760 FORN=70TO71:PRESET(N,150):PRINTI1,'T 

ECLA DERECHA . . - : NEXT: R$= INPUTf ( 1 ) : G0SUB7 

80 

770 FORN=70TO71 : PRESET (N, 150) : PPINT41 , 'T 
ECLA I ZQUIERDA. . ■ : NEXT: L$= INPUT$ ( 1 ) : GOSU 
B780:GOTO340 

780 PUTSPRITE0, (0,0) ,0:FORH=50TO210:PUTS 
PRITE5,(H,140),10,2:PUTSPRITE6,(H,156),1 
0,3:LINE(M+8, 140) -(«+8, 172) , 1 : NEXT: PUTSP 
RITE6,(0,0),0:PUTSPRITE5,(0,0),0:RETURN 



Test de listadoi 




10 - 58 
20 - 58 
30 - 58 



80 
90 
100 



40 - 58 110 -130 180 
-130 190 



50 - 43 
60 - 91 



120 
130 



-239 150 - 16 220 -168 290 -105 

" ^ 160 -235 230 - 13 300 - 21 

- 78 170 - 5 240 -206 310 -174 

118 250 -245 320 -192 

154 260 -229 330 -211 

-161 200 -188 270 - 29 340 - 96 



360 -242 
370 -166 
380 -204 



430 -212 
440 - 77 
450 -226 



390 -206 460 -231 

400 -187 470 -220 

410 -203 480 - 47 

13 490 -175 



500 


-193 


570 


-217 


640 


-239 


710 


-126 


780 -151 


510 


- 29 


580 


-118 


650 


-249 


720 


-192 




520 


-197 


590 


-235 


660 


- 22 


730 


-231 




530 


-192 


600 


-118 


670 


-195 


7 40 


-112 




540 


-224 


610 


- 4 


680 


-240 


750 


-11? 




550 


-133 


620 


- 21 


690 


- 62 


760 


- 29 


TOTAL: 


560 


-108 


630 


-122 


700 


- 82 


770 


-255 


11246 



ENTRA EN LA AVENTURA 
CORRE A TODA PASTILLA 
CON 




Programa i 



iPorJoséM. Casarejosi 



RELOJ 

ANALOGICO DIGITAL 



Para poner en marcha este reloj 
sólo tienes que pulsar la tecla cur- 
sora derecha. Para avanzar las ho- 
ras pulsa la tecla cursora superior. 
Con el cursor derecho se fijan los 
minutos y con la barra espadado- 
ra se pone en marcha nuevamente 
el reloj. 




Variables: 

H: Controla la posición de la aguja 
horaria. 

C: Controla la posición de la aguja que 

señala los minutos. 
J: Controla la posición de la aguja 

(círculo) que señala los segundos. 
A: La uso para pasar grados a radianes. 
Q y W: Posición X e Y de la aguja 
minute r 3 • 

KyZ: Posición X e Y de la aguja de las 
horas. 

X e Y: Posición del círculo que señala 

los segundos. 
HH, MM y SS: Horas, minutos y segundos 
del reloj digital. 



H ' 
20 ' | 
30 ' I 



LOJ 
ANALOGICO 
DIGITAL 




120 H=1B0:C=180:J=180:A=57.295B:Q=SIN(18 
0/A) 144+128: H=C0S ( 180/A) 144+96: K=SIN (H/A 
) 130+128: Z=C0S (H/A) 130+96: HH=0: 1111=0: SS=0 
130 SCREEN 2:QPEN , 5RP:"AStl 
140 FOR 1=180 TO -179 STEP -6 
150 X=SIN(I/AM50+12B 



160 Y=C0S(I /A) 150+96 

170 PSET(X,Y),15 

180 NEXT I 

190 FOR 1=180 TO -179 STEP -30 

200 X1=SIN(I/A)t60+12B 

210 Yl=COS(I/A)t60+96 

220 PSET(X1,Y1),15 

230 NEXT I 

240 iiniimiBiiiiiiHiHm 

250 ' | BUCLE PRINCIPAL I 

260 niHiuiimiHiiiiiiniiii 

270 ON INTERVAL=50 GOSUB 300:INTERVAL J)H 
280 PSET«SIN(-174/A) 150+128, C0S(-174/A)I 
50+96), 15: IF STICK(0)=3 THEN GOSUB 520 
290 GOTO 2B0 

300 CIRCLE(X.Y),2,4:J=J-6;SS=SS+l 
310 BEEP 

320 X=SIN(J/A)*50+128:Y=COS(J/A)I50+96:C 
IRCLE(X,Y),2,15 

330 IF J<=-179 THEN LINE ( 12B, 96) - (Q, W) ,4 
:LINE(0,20)-(50,0),4,BF:6OSUB 370:J=180: 
SS=0 

340 IF QO0 THEN CIRCLE(X,Y) ,2, 15:LINE(1 

28,96)-ÍQ,H),l:LINE(12B,96)-(K,Z),l 

350 GOSUB 560 

360 RETURN 

370 C=C-6:HM=HH+1 

380 Q=SIN(C/A)t44+128:H=C0S(C/A)l44+96 

390 LINE(128,96)-(Q,N),1 

400 IF C<=-179 THEN LINE í 128, 96) -(K, Z) ,4 

:GOSUB420:C=180:MH=0 



410 RETURN 

420 H=H-30:HH=HH+1 

430 SOUND0, 10: S0UND1 , 5: SOUNDB, 16: S0UND1 1 

, 50: S0UND12, 55: 50UND13, 

440 K=SIN(H/A)t30+128:Z=COS(H/A)*30+96 

450 LINE(128,96)-(K,Z),1 

460 IF H<=-179 THEN H=180 

470 IF HH>23 THEN HH=0 

480 PfTURN 

490 ' imniBiiinwMniHi 

500 ' imi PUESTA EN HORA «■ 

510 ' — nunmwmiyi 

520 INTERVALOFF: SS=0: CIRCLE( X, Y) ,2,4 
530 LINE(128,96)-(K,Z),1:IF STICK<0)=3 T 
HEN LINE(128,96)-(Q,N),4:G0SUB 370:GOSUB 
560 

540 LINE(128,96)-(9,H),1:IF STICK(0)=1 T 
HEN LINE(128,96)-(K,Z),4:G0SUB 420:GOSUB 
560 

550 IF STRIG(0)=-1 THEN INTERVALON:J=180 

:SS=0: RETURN ELSE 530 

560 LINE ( 100, 176) - ( 177. 192) . 1 , BF: PRESET ( 

105,180),1:PRINT tl,USING"t#:tl:tl';HH;H 

H;SS:RETURN 



Test de listadoi 



10 


- 58 


200 -141 


390 


-127 


20 


- 58 


210 -113 


400 


- 55 


30 


- 58 


220 -156 


410 


-142 


40 


- 58 


230 -204 


420 


-234 


50 


- 58 


240 - 58 


430 


- 53 


60 


- 58 


250 - 58 


440 


-140 


70 


- 58 


260 - 58 


450 


-124 


80 


- 58 


270 -184 


461 


■ 38 


90 


- 58 


280 -152 


470 


-153 


100 


- 58 


290 -176 


480 


-142 


110 


- 58 


300 -168 


490 


- 58 


120 


- 31 


310 -192 


500 


- 58 


130 


-242 


320 -113 


510 


- 58 


140 


-239 


330 -114 


520 


- 29 


150 


- 82 


340 -135 


530 


-242 


160 


- 54 


350 -205 


540 


- 34 


170 


- 58 


360 -142 


550 


-122 


180 


-204 


" 370 -222 


560 


- 36 


190 


- 5 


380 -161 


TOTAL: 


6.7. 
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PR4 

MSXI 

PARTICIPA CREA 



MSX CLUB SEL 
AQUELL 
^ DISEÑ/ 



f 



BASES 

1. "-Podrán participar todos nuestros lectores 
cualquiera sea su edad. 

2. "-Los programas se clasificarán en tres cate- 
gorías: 

Educativos 
Gestión 

Entretenimiento 

3. "-Los programas deberán ser remitidos gra- 
bados en cassette debidamente protegidas, dentro 
de su estuche de plástico. 

4. "-No entrarán en concurso aquellos progra- 
mas que ya hayan sido publicados por otros me- 
dios o plagiados. 

5. "-Junto a los programas se incluirán las ins- 
trucciones correspondientes, detalle de las varia- 
bles, ampliaciones posibles y todos aquellos co- 
mentarios que el autor considere de interés. 

6. "-Todos los programas han de estar estructu- 
rados de modo claro, separando con REM los 
distintos sectores del mismo. 



PREMIOS 

7. --MSX CLUB OTORGARA LOS SI- 
GUIENTES PREMIOS: . 

JOYSTICK DE ORO MSX CLUB Y UNA 
UNIDAD DE DISCO AL MEJOR PROGRA- 
MA DEL AÑO. 

Además mensualmente se premiarán los pro- 
gramas publicados del siguiente modo: 

10.000 pts. los programas Educativos 

10.000 pts. los programas de Gestión 
6.000 pts. los programas de Entretenimiento 

FALLO Y JURADO 

8. --EI Departamento de Programación de MSX 
CLUB DE PROGRAMAS hará la primera selec- 
ción de la que saldrán los programas publicados 
en cada número de la revista. 

9. "-Los programas no se devolverán salvo que 
así lo requiera el autor. 

I0."-La elección del PROGRAMA DEL AÑO se 
hará por votación de nuestros lectores a través áe 
un boletín que se publicará en el mes de octubre 
de 1987. 

1 l."-EI pla/.o de entrega de los programas finali- 
zará el 31 de octubre de 1987. 
12."— El fallo se hará conocer en el número de di- 
ciembre de 1987, entregándose los premios en el 
mismo mes. 




Remitir a: I clus de prcgr^TÍ MI PROGRAMA 

Roca i Batlle, 10-12, bajos 08023 Barcelona 



Programa ^ T V>r Manuel Ropero López i 



EL SEÑOR 

DE LOS ANILLOS 



Juego interactivo inspirado en situa- 
ciones y personajes del famoso libro 
de J.R.R. Tolkien y que el autor resuel- 
ve muy bien, especialmente en sus grá- 
ficos. 




IIHIIlllllllllf IIIIIIIIIII 

20 ' I El Señor de los Anillos I 
3? | por I 

«0 ' | Manuel Ropero López I 
5? ' I para MSX-Club I 
60 ' | Almería 1986 I 

70 ' munminiimiiiiiiiii 

80 ' 

"0 ' I Pantalla de presentación I 

1 e instrucciones I 
•10? SCPEEN 2:C0L0P 13, 1, 1: CLS 

110 EI="SBU12M+5,+2M-3, ♦2DW+Í, ♦1M-1.+1D 
l!**3.*2H-5,*2 

120 L$="SBM+2,-12M+l,+10P4M-7,+2- 

130 S$='S16H+3, -2H-1 , -2IHU-2M-2, +2N+1 , ♦ 

2r'-2.*2" 

140 Nts'SÍéH*V2tHi , *2H*t . -6H-4, MH-l , - 
3D5" 

150 0i= B SlSI1+3. -3(1-3, -3ü-3,*3f1*3.*3":Q«= 

"312^*2, -2M-2, -TM-2, +2M A 2. +2" 

160 c «="316«+2.-2^2,*2 , 1-l,-3^".-lH-3,- 

2*-3.*6' 

170 PSET(30.30):DPAtl ít 
180 PSET'45,30):DRAW L$ 
P0 PSET(75.40> :DPAW St; PSET (93, 40) :DPAW 
E$ 

200 PSET(110,40):DRAW N$ 

2!0 «>3ET(146.40):DRAW Ot : PSET í 1 48 , 34 ) : DR 

AS SI 

220 PSET'160.40):DPAW R5: DPAWBM173. 20M+ 

1. +1UU1" 

230 PAINT (31 , 2B) : PAINT (46, 2?) 
240 PAINK82.34) :PAINT(P6,38) 
250 PAINTíll2,38):DRAH"BM114,16SBC13M+3, 

260 PAINTf 146,38) -.PAINTÜ70, 30) 

270 D$="Sl6r^+4, -2U3M-2 , - 1 M-2. +6 N 

280 t5 SET(50.90i:DPAW D$:DRAW"B!158,82S8!1+ 

2, -lU3L2D4" 

290 PSET(73,90):DRAW E< 
300 P5ET( 145,95) :DRAW Lí : PSET í 1 70. 95) : DR 
AW O*:PSET(172,90):DPAW Q$: PSET ( 185, 95) : 
DRAM 3$ 

310 PAINT(54,85):PAINT<76.88) 

320 PAINT(150,90)¡PAINT(170,93):PAINT(19 

2,89) 



330 Al«"BM0t 160SBR10M-5. -12^-5, *12":P<= 
"BM47. 155S16R2M-1.-2M-1,*2" 
340 DRAH A$:DRAM P$:PAINT(45, 158) 
350 PSET(66.160):DRAW N*:PAINT(68, 158) 
360 I$=*BH90, !60S16P2M+1.-4L2H-1,+4':Y$= 
"PM<»5. 140R2U1L2D1- 

370 DRAH I$:DPAH Y$:PAINT(94, 158) :PAINT( 
97,139) 

380 PSET'110,160):DRAN LIsPSEK 130,160)1 
DRAH Lt: PAINT (1 13, 157) :PAINT( 133, 157) 
390 CIRCLEf 158, 148) , 12, 10, , , 1.3:CIRCLE(1 
58,148), 8,10,,, 1.3;PAINTU51, 148), 10 
400 PSET (175, 160) :DRAW Sf : PAINT ( 182, 154) 
410 M$="tl20o4vl5s8i3000014aaagfffeddían 
50n50n50n48b-b-b-aggab-an49agfffeddefegf 
ed":N$="T120o6vl314aaagfffeddfan74n74n74 



n72b-b-b-aggab-an73agHíeddef9gffid u :PLAY 
fls.N* 

420 SCPEEN 0: KEY OFF : WIÜTH 37:C0LQR 15,1 
,1:CLS 

430 PPINT"En este juego tu desempeñas el 
papel de Frodo,un pequeño Hobbit que ha 

heredado de su tío Bilbo un anillo 
mágico que consiguió en otra aventuraqu 
e ahora no viene al caso." 
440 PRINT:PRINT'Este anillo engendra el 
■al. así que tú debes llegar al siniestr 
o país de Hordor y arrojar el anillo al 
Monte del Destino." 

450 PRINT: PRINT'Sin eibargo,este bísío a 
nillo tí ayudará a llegar a Hordor, p 
ues el catino está plagado de peligro 
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s. Si quieres más información léete 
el libro, que no va mucho más allá de la 
süiil páginas." 

460 PRINT:PRINT:PRINT" ¡Suerte y feliz av 
entura!" 

470 LOCATE l,22:PRINT**Para comenzar puls 
a una teda":IF INKEY$= n " THEN GOTO 470 
480 ' | Definición de variables,! 
490 ' | Sprites y funciones I 
500 CLEAR: SCREEN 2,2:0PEN"GRP: "ASIl 
510 KEY1,"0":KEY2,"N":KEY3,"S":KEY4,"E": 
KEY5, "P " : KEY6, "H n :KEY7, "A":KEY8, "C" : KEY9 
,"T"|KEY10|"H" 

520 F=8:GOLLUM=2:HELP=0:PERM=0:ANILLO=0: 
COTA=0:LLAVE=0:FR=0:ESP=0:AR=t:T=150¡I=l 
65:ER=0 

530 FOR M TO 4:E$="" 

540 FOR 1=1 TO 32:READ Si 

550 E$=E$+CHR$(VALí"!tH"+S$) ) :NEXT 

560 SPRITE$(H)=E< 

570 NEXT 

580 FOR 11=5 TO 6:R*= n " 

5*0 FOR !=1 TO 8: READ S$ 

600 RI=P$+CHR$(VALntH"*S$)):NEXT 

610 SPRITE*(fn=R$ 

620 NEXT 

630 DATA 03,05,0?, 13,25. 09. 13,25, 09. 1!. 2 

5,09, 13,25,0', 11, C0,A0,?0,C8,A4,90,C8.A4 

, 90. C8.A4,90.CB,A4, 9$,88 

640 DATA 0,20.60, 10,8,1,7,3,1, 5, 8,51, 60, 

30,0,0,0,2,3,4,E8,B0,F0,60,C0,D0,8,C5,3. 

6,0,0 

650 DATA 40,A7,9D,8F,2F,5F. 47, 0,0,0, 0,0, 
0,0,0,0,2,E5,B9,F1,F4,FA,E2,0,0, 0,0,0,0, 

0,0,0. 

660 DATA 0,0,7,F,1F,1F,3F,3F,3B,1F,7,0,0 
. 0,0. 0,0,0. 80, C0.E0.E0,F0,F0, 70, E0, 80,0, 

0,0.0,0 

670 DATA 18,1C,3E,3F.3F,7F,7F.FE 
680 DATA 0,0,0,0.30,30,30.30 
690 60T0 860 

700 PRESET(20,183):PRINT»l,"¿Que haces?" 
: RETURN 

710 ' | Eriador (1) I 
720 ST=l:F=F-2: GOSUB 840 
730 GOSUB 830 
740 GOSUB 2980 

750 LINE(0,0)-(140,i20),7,BF:CIRCLE(30,2 

0).5.11,,,1.3:PAINT(30,20),11:CIRCLE(80, 

30),15,15,,,.2:PAINT(80,30),15 

760 DRAITBÍ10, 80S40C3H+4, -2M+3, +2M+2, -3M+ 

2,+3M+3,-2D3L14Ul":PAINT(90,60),3 

770 LINE(0,90)-(140,120),3.BF 

780 RUT SPRITE 1, (20, 100) , 12, líPüT SPRIT 

E 3,(15, 95), 12,1:PUT SPRITE 4,(110,100), 

12,1 

790 PRESET(20, 130) ¡PRINTIl, "Estas en Eri 
ador, ";PRESET(20, 140) ¡PRINTIl, "tiirra di 



Hobbits":PRESET(20. 150) :PRINTI1, "amigos 
. "¡GOSUB 700 

800 A$=INKEY$:IF Al="" THEN GOTO 800 ELS 
E IF A$="N" THEN GOTO 960 ELSE IF A*="S" 

THEN GOTO 1580 ELSE IF A$="E" THEN GOTO 

860 

810 IF A$="P" AND PERPK3 THEN F=F+4:PERH 
■PERH+lí GOSUB B50:GOTO 740 
820 GOTO 800 

830 IF F<1 THEN GOTO 3180 ELSE RETURN 
840 IF ANILLO=0 THEN GOTO 3180 ELSE RETI) 
RN 

850 PRESET (15, 160) ¡PRINTIl. "Te han regal 

ado H :PRESET(15,170):PRINTIl, , una llave i 

agica":PRESET(172. 130) :PRINTI1, "Llave":L 

LAVE*1:F0R TT«1 TO 1300: NEXT: RETURN 

860 ' | Hobbiton (2! I 

870 ST=2¡F=F-2:XX=-9:YW6:DX= 7 

880 GOSUB 830 

8°0 GOSUB 2970:LINE(0,0)-d40,80),5,BF:L 
INE(0.S0>-(140,120).4,BF:FOR 155*1 TO 10: 
X7.=XM5:YX=YU10:LINE(XS.120)-(Y7.,80),1 
: NEXT: FOR IM TO 5:D7.=DM0:LINE(0,DZ)- 
( 140. DX),1: NEXT 

900 DPAW"Bf140.79S4C6U20E5R5M+5,-57P10M+5 
.•5?WF3D20LliÜI3L20Ol3L10 , 'iPAINT(42 ( 78) 
,6:LINE(50,65)-(72,7?),1,BF¡LINE(47.53)- 
(75,53),1:LINE(56.45)-(63,52).13.BF 
910 PRESET(20,125):PRINTI1. "Estas en Hob 
biton. n :PRESET(20. 135) ¡PRINTIl, "Tu casa. 
Hay un":PRESET(20,145):PRINT*l, "anillo e 
n el cofre":PRESET(20,155):PRINTtl,"que 
esta enci«a':PRESET(20,165):PRINTIi,»de 
la chimenea." 

920 PRESET(20,185):PRINT*l,"¿Que haces?" 

«30 AS=INKEY$:IF A<="" THEN GOTO 920 ELS 

E IF A$="N" THEN GOTO 960 ELSE IF A$="E" 
THEN GOTO 1080 ELSE IF A$="S" THEN GOTO 
1580 ELSE IF At="C M OR Af="A" THEN AÑIL 

LO=l : PRESET (172, 120) ¡PRINTIl, "Anillo" 

940 IF A$="0" GOTO 710 

950 GOTO 930 

960 ' | Desierto del Norte (3) I 
970 F=F-4:60SUB 840 
980 GOSUB 830: GOSUB 2970 
9*0 LINE(0,0)-(140,120),7,BF:CIRCLE(30,2 
0),5.9,,,1.3:PAINT(30,20).9:DRAW"BH0,80S 
40C10f1+4 f -2N*3 J *2M*2,-3N*2,+3N*3,-2D3L14 
U1":PAINT(90,60),10 
1000 LINE(0,90)-(140,120),11,BF 
1010 DPAWBN43, U8C2S14R1U4R2U4L1D3L1U5L 
1U2L1D5L1U1L1D3R2D5":PAINT(45.115),2 ■ 
1020 PRESET(10,130):PRINTI1, "Estas en el 
Desierto":PRESET(10,140):PRINTtl,"del N 
orte. "¡PRESET (10, 150) ¡PRINTIl, "Solo pued 
es ir hacia":PRESET(10,160):PRINTIl,"tl 
Sur. "¡GOSUB 700 

1030 A$=INKEY$:IF A$="P" AND PERIK3 THEN 



F=F-4;PERM=PERH>1¡G0T0 980 
1040 IF A$="S" THEN GOTO 1050 ELSE GOTO 
1060 

1050 ON ST GOTO 710,860,1080,1230 

1060 IF A$="H" AND HELP=0 AND F<«2 THEN 

F=F+8:HELP=1:G0SUB 3160 

1070 GOTO 1030 

1080 ' | Rivendel (4) I 

10*0 ST=3:0=62:I>52 

1100 F=F-2:G0SUB 840:GOSUB 830:5O3UB 298 


1110 LINE(0,0)-(140,120),7,BF:DRAH"BH0,7 
0S40C3M*3.-2H*:.*iH*V2N*2.*2H*2.-2H*l, 
+ 1D3LH":PAINT(40,70),3:LINE(0.80)-''140. 
120),3,BF:PUT SPRITE 1, (20. 100), 2,1: 
1120 CIRCLE(80,20),5,10.,,1.3:PAINT!80.2 
0),10:CIRCLE(60.30>,15,15,,,.2:PA!NT(60, 
30), 15 

1130 DRAM-BH50. 120C15S40U3R2D3L2":PA!NTí 
60, 100) , 15, hDRAWWl, 120S40C15P6U3L6D3 
":PAINT(80, 119), 15,1 

1140 LINE(5M07)-(63, 120).6.BF:LINE' 9 0, 
100)-'110.U0),4,BF:LINE(72.°0)-r2.::0- 
,1 

1150 DRA«"BM50,8 o S40C8P8r-i,-2L6r1-l.*2": 

PAINT(80,80),8:FOR U=l T 6:0=0+10:11=11 
♦ 10:LINE(O,89WII,70),6:NEXT 
lié? PRESET (20, 130) : PRINTIl . "Estas en Ri 
vendel .": PRESET '20, 140): PRINTIl, "Dentro 
hay aigo n :PRESET(20,150>:PRINTIl,"para t 
i. Pero la "¡PRESET (20, 160) : PRINTIl, "puer 
ta esta cerrada" ¡PRESET (20, 185) : PRINTIl, 
"¿Gue haces?" 

1170 A$=INKEY*:IF A$="" THEN GOTO 1170 E 
LSE IF A$="N" THEN GCTO 960 ELSE IF A$=" 
0" THEN GQTO 860 ELSE IF A$="E" THEN GOT 
1230 ELSE IF A*="S" THEN GOTO 1430 
1180 IF A$="P" AND PERIK3 THEN f=F^:PER 
M=PERW+1 :GOTO 1080 

11°0 IF A$="A" AND LLAVE-* THEN GOTO 120 
ELSE GOTC 1220 

1200 PRESET(20, 170): PRINTIl, "PUERTA APIE 
RTA":LLAVE=0 

1210 PRESET (172, 140) sPRINÍÜ. "Cata prot. 

":C0TA=1 

1220 GOTO 1170 

1230 ' | Bosque Negro (5) I 

1240 ST=4:F=F-2 

1250 GOSUB 830¡GOSUB 2980 

1260 LINE(0,0)-(140,120),4.BF¡P'JT 3PPITE 

3,(10. 100),1,1:PUT SPRITE 4, (20. "ó) ,1,1 
¡PUT SPRITE 5.(35,103).1,1:PUT SPRITE 6, 
(50,94), 1,1:PUT SPRITE 7, (80,88) ,1,3: PUT 

SPRITE 3. ( 100, 108) , 1, 1: PUT SPRITE ".(12 
5,85),1,1:PUT SPRITE 10. (113,60) ,1,1 
1270 PUT SPRITE 11, (43,64) , 1, 1: PUT SPRIT 
E 12, (60,70) , 1. isDRAW"BH110, 10C11S4F5M-1 
5, +20H-2, -3M-8, +13H-2, -3H-8, +7H+10, -20Ü1 
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Programa 




8«+ 1 , -20D 1 ««♦ 1 , -2* ■ 5 PA I NT í 1 1 , 1 5) , 1 1 

1290 LINE (87, 65) - <87, ?0) , 1 

1290 CIRCLE(2?.20),5,10,,.1.3:PAINT(20,2 

0) . 10:CIRCLE (35,25) ,25, 1, , , . 15:PAINT(35, 

25).1:CIRCLE(100,20),30,1,,,.1:PAINT(100 

.20) . 1 

1300 IF JJ=1 THEN GOTO 1380 

131? PRESET (20, 130) :PRINTtl, "Estas en el 

BosQue":PPESET(20, 1*0) ¡PRINTtl, "Negro. U 
na enorie":PRESET(20, 150) :PRINTtl, "arana 

esta a punto" : PRESET < 20, 160) ¡PRINTtl, "d 
evorarte. ":PRESET(20, 185) ¡PRINTtl , "¿Que 
haces"" 

1320 A$=INKEY$:IF AsO'N" AND AIO'P" AN 

D A$<>"H- THEN GOTO 1320 

1330 1F At="H" AND HELP=0 AND F=<2 THEN 

F=F*3:HELP=1: GOSUB 3160 

1340 |F ft|«"H" AND COTA-t THEN P-F-2j GOS 

UB 830-.SOSUB 2970:JJ=1:GOTO 1260 

1350 IP A$="P" THEN GOTO 1390 

1360 IF A$="M" AND COTA=0 THEN GOTO 1390 

1370 GOTO 1320 

1330 LlNE(0,12T)-(|20,t84),l,0FiPUT SPRI 
TE 3. '40,145), 15, 3 : PRESE! ( 78 , 1 45 ) :PRINT# 
1, U =":P'JT SPRITE 2, (103. 140! , 15,2:PRESET 
'20,185' :PPINTtl,"¿Que haces?" : GOTQ 1400 
1790 PRESET (20, 170) : PRINTtl, "Te ha leren 
tíatío.-iFCP T?»l TO 2000: NEXT: GOSUB 3180 
14?? PRESET «20, 185) ¡PRINTH , "¿Que haces" 
":B$=INKEY$:!F Bi=°" THEN GOTO 1400 
1410 IF B$="N" THEN GOTO 960 ELSE IF B*= 
■Q" THEN GOTO 1090 ELSE IF B$="S° THEN G 
OTO 1990 

1420 BOTO 1400 

143? ' | Acebeda '6) I 

1440 F=F-2:ST=6 

1450 GOSUB 830: GOSUB 2*80 

1460 LINE<0,0)-(140,120),7,BF:CIRCLE(20, 

15),5.U.,.l.3:PAINT(20,15).ll:CIPCLE'l0 

0,20),20,i4,,,.2¡Pfl!NTU00, 201,14 

14^3 DF AWBM0. 30C4S4M30, 50d+ 1 2, + 13I<+1, -3 

M+2.+10M+15, -40M+2, +2M+2, -2M+2,+2M+2,-2M 

♦2, +2H+2, -2a*5, +20M+2, -2M+4, +2011+2, -4M+3 

,*15H:i0,40H+20,+30Ml40,50D40L140U10 H :PA 

INH30,70),4 

1480 DRAW"BM60,28S4C15H+7.-17H+5,+17«-2, 
+-2Í--2. -2^-2,+2M-2,-2f1-2.+2M-2,-2":PAINT( 
64,25), 15 

1490 LINE(0.90)-(140,120),2,BF 
1500 PUT SPRITE 1,(40, 100). 12,1 
1510 PRESET(20,13l)iPR!NTIl, "Estas en Ac 
ebeda. " : PRESET (20, 140) ¡PRINTtl, "Si quier 
es ir al":PPESET(20,150):PRINTti,"Este d 
eberas cruzar" : PRESET (20, 160) : PRINTtl. "e 
1 Caradhras.la"¡PRESET(20, 170) ¡PRINTtl, " 
cuibre nevada. ": PRESET (20, 185) ¡PRINTtl," 




¿Que haces'"' 
152? A<=!NKEY$ 

1530 IP At="E" THEN 50 T l"90:F=F-4 
154^ IF A*="0" THEN GOTO 1580 ELSE IF A$ 
="N" THEN GOTO 1080 ELSE IF A$="S" THEN 
50TC 1 7 50 

1550 IF A$s-H" AND HELP=0 AND P«<2 THEN 

F=F*8:HELP=1: GOSUB 3160 

1560 : c A$="P" AND PERH<3 THEN F=F+2:PEP 

1=PERH+l:GOTO 1450 

1570 GOTO 1520 

1580 ? | Tierras Brunas (7) I 

15°0 ST=7;F=F-2:GCSUB 940 

1600 GOSUB 330: GOSUB 2970 

1610 LINEí0.0)-(140,120).°,BF:LINE(0.5)- 

li40,2í) l 13 l |PiUNI(l,30)-íl«f,40),t3,IF 

:LINE(0.4°)-(140,55).13,BF:LINE(0,70)-(1 

40, 120), 3, BF 

1620 CIRCLE í 125, 50) . 6, 10, , , 1 , 3: PAINT ( 125 
,50).10:CIPCLE(115,58),15,8,,,.2:PA1NT(1 
15, 58), 8 

1630 PSET(0,70):FOP 1=1 TO 14:DRAH"C4S20 
E1F1":NEXT:DRAWBM0,70C4S4D2R140U2":PAIN 

1(5.71) , 4 

1640 DRAW-BM0, 80C5S20P6M+1 , +1R6M+6, +2M+5 
, -2H+4, +2D2H-4, -2H-5, +2M-6,-2L6H-l , -1L5U 
2"¡PAINT!10,85),5 

1650 FOR 1=1 TO 10: X=INT (RND( 1 ) ti 10+30) : 

Y=!NT(RND(1! 110+110) :PSET(X, Y) :DRAW"C12S 

! 0NH 1 NU1NE1 " : NEXT 

1660 PUT SPRITE 0. (15, 100) , 12. 1 

1670 PRESET (15, 130) ¡PRINTtl, "Estas en Ti 

erras" : PRESET < 15, 140) : PRINTil f "Brunas. La 

s «ontaías":PRESET(15, 150) ¡PRINTtl, "que 



ves al frente" ¡PRESET ( 15, 160) ¡PRINTtl , 1 s 
on las de Mor i a, ": PRESET í 15, 170) :PRINT#1 
, "situadas al Este" 

1680 PRESETÍ20, 185) : PRINTtl . "¿Que haces? 

H 

1690 A$=INKEY$ 

1700 IF Aí="N" THEN GOTO 1730 ELSE IF Af 
="E" THEN GOTO 1740 ELSE IF A$="P" AND P 
ERM< 3 THEN F=F+3:PERM=PERf!+l:G0T0 1600 
1710 IF A*="H" AND HELP=0 AND F=<2 THEN 
F=F+8:HELP=1:G0SUB 3160 
P20 GOTO 1690 

1730 IF ST=2 THEN GOTO 860 ELSE GOTO 710 
P40 IF ST*6 THEN GOTO 1430 ELSE GOTO 17 

50 

1750 ' | Moría (8) I 

1760 F=F-2:ST=8:60SUB 840 

1770 GOSUB 830: GOSUB 2970 

1780 LINE(0,106)-(140,110),8,BF:LINE(0,4 

0)-(15,43),10,BF:DRAW"B!113.58C10S20M+3,- 

6L2M-1,+6":PAINT!16,50),10 

1790 NN$= H R5t1+2. -5H-4, -7M-1, +5M-1 , + 1M19. 

25":DRAW"8f118,26C8S8XNN$;":PAINT(20,24), 

BsPüT SPRITE 0,(20,15), 10, 5 

1800 CIRCLE(70,60),5,6,,,.9¡CIRCLE(90,60 

),5,6,,,.9:PAINT(70,60),6;PAINT(90,60),6 

1810 LINE(67,55)-(73.65),l:LINE(?3,55)-( 

87.65), 1 

1820 DRAW"BM75,50C6S20R4E1F1G1F1G1F1G1F2 

G1H1G2H1G1H1G1H1H1G1H1E2H1E1H1E1H1E1F1R2 

1830 LINE(70,78)-(90,78),6:CO$= B C14S4R4^ 
-2, +4M-2, -4" : PSET (73, ?9) : DRAW CO* : PAINT ( 
75, 80) , 14: PSET (82, 79) : DRAM COt: PAINT(83, 
79) ,14 

1840 IF PP=1 THEN GOTO 1950 
1850 PRESET (20, 120) ¡PRINTtl, "Estas en la 
oscura":PRESET (20, 130) ¡PRINTtl, "doria. U 
n Bal rog, "¡PRESET (20, 140) ¡PRINTtl, " (espi 
ritu maligno) "¡PRESET (20, 150) ¡PRINTtl, "v 
a a matarte. .."¡PRESET(10,160)¡PRINTtl, H 
i NO PUEDES SALIR!" 

1860 PRESET(20, 1 85) : PRINTtl , "¿Que haces? 
» 

1870 A$=INKEY$ 

1880 IF A$<>"M" AND A$<>"P" AND A$<>"H" 
THEN GOTO 1870 

1890 IF A$="H" AND HELP=0 AND F< 1 1 THEN 
F=F+10:HELP=1¡GOSUB 3160:GOTO 1870 
1900 IF Ai="H" AND COTA=l THEN F=F-10:GO 
SUB 830:GOSUB 2970:PP=1:GOTO 1780 
1910 IF Af="P" THEN GOTO 1940 
1920 IF A$="M" AND COTA=0 THEN GOTO 1940 
1930 IF A$="H" AND HELP=1 THEN GOTO 1870 
1940 PRESET (20, 170) s PRINTtl, "Tt ha aatad 
o...":FOR TT=1 TO 1000: NEXT: GOTO 3180 
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GRAN CONCURSO 

BOOGA 
BOO 



El ganador del concurso Booga-Boo, organi- 
zado por la firma Mind Games España, S.A. 
y MSX CLUB DE PROGRAMAS es: 

DAVID GENER 

que ha obtenido 

297.960 PUNTOS 



BOGGfl-BGO 

Iv 9%w » Ann M«ft«h. 

® iÉi^ST::.:: 

297960 »AVI» GENER 
008959 LUIS GEMEP 

oee68e david oemfp 

O O O 3 8 O LUIS OENEP 
O O O O O O 



El ganador -David Gener Almenar, de Va- 
lencia- se hace acreedor al premio de 
125.000 pts. en software de Mind Games Es- 
paña, S.A. patrocinadora del concurso y ma- 
terial didáctico de informática MSX, según 
el artículo 4 de las bases oportunamente pu- 
blicadas. 



UN LIBRO 
PENSADO PARA 
TODOS LOS 
QUE QUIEREN 
INICIARSE DE 
VERDAD 
EN LA 

PROGRAMA- 
CION BASIC 

Construcción de 
programas. El potente 
editor todo pantalla. 
Constantes numéricas. 
Series, tablas y 
cadenas. Grabación de 
programas. Gestión de 
archivo y grabación 
de datos. Tratamiento 
de errores. Los 
gráficos del MSX. 
Los sonidos del MSX. 
Las interrupciones. 
Introducción al 
lenguaje máquina. 



' U «'«<.lll<K,HO 



LOS SEC 




Y ADEMAS PROGRAMAS DE EJEMPLO 

Alfabético. Canon a tres voces. Moon Germs. Bossa Nova. Blue 
Bossa. La Séptima de Beethoven. La Flauta Mágica de Mozart. 
Scrapple from the apple & Donna Lee. The entretainer. Teclee un 
número. Calendario perpetuo. Modificación Tabla de colores 
SCREEN 1. Rectángulos en 3-D. Juego de caracteres alfabéticos en 
todos los modos. Juego Matemático. Más grande más pequeño. 
Poker. Breackout. Apocalypse Now. El robot saltarín. El archivo 
en casa. 



r 



Deseo me envíen el libro de los secretos del MSX, para lo 
cual adjunto talón de 1.500 ptas. a la orden de MAN- 
HATTAN TRANSFER, S.A. 

Nombre y apellidos 

Calle n." 

Ciudad CP 

Este boletín me da derecho a recibir los secretos MSX en 
mi domicilio libre de gastos de envío o cualquier otro 
cargo. No se admite contrareembolso. 

Importante: Indicar en el sobre MANHATTAN 
TRANSFER, S.A. 

«LOS SECRETOS DEL MSX» 
Roca i Batlle, 10-12 Bajos - 08023 BARCELONA 
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1950 PRESET (20, 140) iPRINT«l , "BALR06 =";P 
UT SPRPE 2, (100,133) , 15, 2: PRESET (20, 185 
):PRINTtl,"¿9ue haces?" 
1960 B$=INKEY$ 

1970 IF B*="N" THEN GOTO 1430 ELSE IF Bí 
="0" THEN GOTO 1580 ELSE IF Bs="E" THEN 
GOTO 2230 
1980 GOTO 1960 

1991 ' | Tierras Asperas (9) I 
2000 F=F-4:G0SUB 840 
2010 GOSUB 830:GOSUB 2970 
2020 LINE(0,0)-(140, 120U3,BF:.CIRCLE(30 
,67),10,8,6.28.3.26,1:LINE(20,69)-(40,6 O 
),3:PAINT(30.65),8:CIRCLE(50,50),15,9,,, 
.2:PAINT(50,50).9 
2030 LINE(0,66)-(140,120),11,BF 
2040 FOR 1=1 TO 15:X=INT(RND(l)ll50-30): 
Y=INT(RND(1) 130+90) :PSET(X, Y): DRAW"S10C1 
2NU1NE1NH1":NEXT 

2050 DRAW"B!1100,120C10S4l1+7, -2411*1. +2M+4 

, -12M+2, *3H+4, -24M+6, -9M+1 , +2M+6, -1BM+9, 

+16D63L40":PA!NT(110,100),10 

2060 IF GOLLUM=0 THEN GOTO 2170 ELSE IF 

BOLLUM= 1 THEN GOTO 2210 

2070 PRESETÜ0, 130) :PRINTtl, "Estas en la 

s Ti erras": PRESET ( 10, 140) rPRINTf 1, "As per 

ll.fiollui esta":PPESET(10.150):PPINTtl," 

en la íontaña y va" : PRESET ( 10, 160) :PRINT 

•l,"a robarte el Anillo" 

2080 FOR TT=1 TO 3000: NEXT : A= 1 

20<?0 PRESET ( 1 5 . 1 75 ) : PR I NT# 1 . "Tienes 9 se 
g.":PRESET(15. 185) ¡PRINTtl, "para decidir 

si lo matas o no" 

2100 TIHE=0:FOR 1=1 TO 625:NEXT:A=INT(A- 

TME/50> 

2110 C$=INKEY$:IF C$="M" THEN GOLLUM=0:F 
=F-4:60T0 2010 

2120 IP AS="H" AND HELP=0 THEN F=F+2:G0S 
UB 3160 

2 1 30 L I NE ( 225 . 1 65 ) - ( 245 , 1 80 ) , 1 , BF : PRESET 
(230,l?0):PRINTtl,A 

2140 IF A=0 THEN GOTO 2150 ELSE GOTO 210 


2150 PRESET(230, 170) ¡PRINTtl, A 

2160 6OLLUPt=l:GOT0 2010 

2P0 PRESETC20, 150) : PRINTtl , "Gol 1 u» =":P 

UT SPRITE 3, (90, 145) , 15, 2: PRESET (20, 185) 

:PRINT#1, "¿Que haces?" 

2180 B$=INKEY$:IF B$="N" THEN GOTO 1230 

ELSE IF B$="S" THEN GOTO 2820 ELSE IF B$ 

=•0" THEN GOTO 1430 

2190 IF B$="H" AND HELP=0 THEN F=F+5:G0S 

UB 3160 

2200 GOTO 2180 

2210 PRESET ( 15, 130) : PRINTtl , "Gol 1 ua te h 
a robado":PRESET(15,140):PRINTIl,"el Ani 
lio y ha': PRESET (15, 151) : PRINTtl, "huida 



a Kordor . ": PRESET (20, 185) : PRINTtl , "¿Que 
haces?" 

2220 GOTO 2180 

2230 ' | Lothlorien (10) I 

2240 F=F-2: GOSUB 840 

2250 GOSUB 830: GOSUB 2970 

2260 LINE!0,0)-(140,120),7,BF:LINE(0.50) 

-(1*0, 120) ,2,BF:CIRCLE(U0,20) , 5,11, ,,1. 

3:PAINT(110,20),11 

2270 DRAH"BW0, 52C4S 10E4M+1 , +3M+3, -2M30, 5 
2H0,52":PAINT(4,50>,4 
2280 DRAWBM140, 70C4S20N-4, +4M-4, +2H-4, + 
4R2H+4, -3M+4, -2H+2, -2U2" : PAINT ( 135, 80) , 4 
2290 PUT SPRITE 4, (110,65) , 10,4: PUT SPRI 
TE 6,(114. 71), 14,6:PUT SPRITE 0,(120,100 
),10,4:PUT SPRITE 2, (124, 106) , 14,6 
2300 PUT SPRITE 7, (70,90) , 10,4:PUT SPRIT 
E 3, (74,96), 14,6 

2310 PUT SPRITE 8, (85,70) , 10,4:PUT SPRIT 
E 9,(89,76), 14,6 

2320 PUT SPRITE 10, (40, 80) , 10, 4: PUT SPRI 
TE 12, (44,86), 14, 6 

2330 PRESETÍ10, 130) : PRINTtl , "Estas en Lo 
thlorien, ":PRESET(10, 140) : PRINTtl , "ti err 
a elfica de" : PRESET ( 10, 1 50) : PRINTtl , "arb 
oles dorados. ":PRESET(20, 185) :PRINT#1,"¿ 
Que haces?" 

2340 IF JH=1 THEN GOTO 2400 
2350 AÍ=INKEY$ 

2360 IF A«="0" THEN GOTO 1750 ELSE IF As 
="S" THEN GOTO 2420 

2370 IF A$="P" AND PERIK3 THEN F=F+6:FR= 
1:PERH=PERM+1:G0T0 2390 
2380 GOTO 2350 
2390 JH=1:60T0 2250 

2400 PRESET(20, 160) : PRINTtl , "Te han rega 
lado un":PRESET(20, 170) :PRINTtl, "frasco 
■agico." 
2410 GOTO 2350 



2420 " | Rohan (11) I 
2430 F=F-2:ESP=1 
2440 605UB 830: GOSUB 2980 
2450 LINE(0,0)-(140,120),7,BF:CIRCLE(30, 
30).5,11,.,!.3:PAINT(30,30),1!:CIRCLE(60 
,40),i5,15,,,.2:PAINT(60,40),15 
2460 DRAH"BM0, 70C4S40N+2, -1H+2, +2H + 1 . - IH 
+Í,*2H*1,-3H*1,*2H*3,-2H*1,*1H*2,-4D6LM 
U4":PAINT(20,65),4 
2470 PAINT(130,65),4 
2480 PUT SPPITE 0. (30. 100) , 12, 1 
2490 LINE(0,90)-!140.120),2,BF 
2500 FOR 1=1 TO 10 

2510 X=INT(RND(1)!!40):Y=INT(RND(1)125)* 
95 

2520 A*="C12S8NH1NU1NEP 
2530 PSET(X,Y):DRAN A$ 
2540 NEXT 

2550 PRESET ( 10, 130) : PRINTtl , "Estas en Ro 
han.":PRESET(10,140):PRINTtl,"Aragorn,re 
y de 1 os " : PRESET ( 1 , 1 50 ) : PR I NT 1 1 , "hombre 
s te ha t-ega-" : PRESET ( 10, 1 60) : PRINTtl , "1 
ado una poderosa":PPESET(10. 170) ¡PRINTtl 
, "espada. n :PRESET (20, 185) : PRINTtl , "¿Que 
haces?" 

2560 A*=INKEY* 

2570 IF A*= n P" AND PERH<3 THEN F=F+4:PEP 
H«PERH*Í:BQTO 2440 

2580 IF A$="N" THEN GOTO 2230 ELSE IF A* 
="S" THEN GOTO 2600 
2590 GOTO 2560 

2600 ' | Minas Horgull (12) I 
2610 F=F-2 

2620 GOSUB 830: GOSUB 2980 

2630 LINE(0,0)-(140,120),4,BF 

2640 LINE(0,80)-(140, 120) , 12, BF: CIRCLE (8 

0,20),10,10,,,1.3:PAINT(80,20),10:CIRCLE 

(83,20),9,4,,,1.3:PAINT(83,20),4 

2650 A$="S20H+4, MH+i, +4F2M+4, +2M+1 , +2M+ 

3,+2M+l,+2" 

2660 DRAN "BI120,0C10XAl!L20":PAINT(30.60 
),10:DRAW'BM20,0C11XA$;" 
2670 IF AR=0 THEN GOTO 2770 
2680 LINE(120,0)-(120,65),1 
2690 PUT SPRITE 0, (113,63), 1,3 
2700 PRESET ( 10, 130) : PRINTtl , "Estas en Hi 
nas":PRESET(10, 140) : PRINTtl , "Morgull , pue 
rta de" : PRESET ( 10, 150) : PRINTtl , "Mor i a, Un 
a terrible":PRESET(10, 160) : PRINTtl , "araK 
a te cierra ":PRESET(10, 170) : PRINTtl , "el 
paso.":PRESET(20,185):PRINTtl, "¿Que hac 
es?" 

2710 A$=INKEY$ 

2720 IF A$="N" THEN GOTO 2420 

2730 IF A$="H" AND C0TA=1 AND FR=1 AND E 

SP=1 THEN AR=0:GOTO 2760 

2740 IF A$='H" AND COTA=0 OR Af="H" AND 
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FR=0 OR ft$='H" AND ESP=0 THEN GOTO 3180 
2750 GOTO 2710 
2760 GOTO 2620 

2770 PUT SPRITE 3, (40, 136) , 15,3: PRESEK7 
5. 140) :PRINT#1, -= M :PUT SPRITE 4, (100, 133 
),15,2:PRESET(20, 185) ¡PRINTIl, "¿Que hace 
s?" 

2780 A$=INK.EY$ 

2790 IF A$="N" THEN GOTO 2430 ELSE IF A$ 

="E B THEN GOTO 2820 

2800 GOTO 2780 

2810 ' | Morder (13) I 

2820 F=F-1 

2830 GOSUB 830:GOSUB 2980 

2840 LINE(0,0)-(140 ( 80),4,BF:C!RCLE'20,2 

0),10,10,,.1.3:PAINT(20.20).10:CIRCLE(22 

,20),9,4,,,1.3:PAINTí22.20),4 

2850 DRAW"BM63,55C6S3E15M+8,-3M*8.-13M+3 

, +3Í1+12. -26W+15, +23E4M+37, +60L100U33" 

2860 PAINT(75,505.6 

2870 DRA»"BH«,70C1S20E2F1W*2, -3F2E2W+1, + 
1M+1 . -2M+3. +5E2M+4, +3f^+6 , -5F2E 1 Í1+ 1 . +2" : P 
AINT (20,80).! 

2880 CIRCLE(60,35),1B,1,,,.2:PAINT(60,35 
) , 1:CIRCLE ( 120, 15) , 15, 1 , , , . 18: PAINT ( 120, 
15),1:C!PCLE(80,10),20,1,,,.15:PAINT(80, 
10), 1 

2390 PRESET (10,110): PPINTil , "Estas en !1o 
r der , " : PRESET < 1 , 1 20 ) : PR I NT# 1 , "tierra de 
Sauron " : PRESET ( 10. 130) : PRINT#1 , "el malí 
gno. " 

28<>5 IF COTA=0 THEN PRESEN 10, 140) :PRINT 
l!,"Pero por desgraci a" : PRESET í 10, 150) :P 
RINT#1, "no tienes los" : PRESET ( 10, 160) :PP 
INTI1, "objetos necesarios" : PRINT#1 , "para 

sobrevivir. ":F0R TT=1 TO 2000: NEXT: GOTO 

3180 

2900 IF GOLLUH=l THEN GOTO 2940 

2910 PRESETU0, 140) ¡PRINTIl, "Debes arroj 

ar el":PRESET(10, 150) :PRINTil, "Anillo al 



Monte" ¡PRESET (10, 160) ¡PRINTIl, "del Dest 
ino con la-:PRESET(10, 170) : PPINT»! , -tecl 
a F9" 

2920 Af=INKEY$:lF A$<>"T" THEN GOTO 2920 
ELSE GOTO 2960 

2°30 F=F-2: GOSUB 830: GOTO 2960 
2940 PRESET ( 1 0, 140) : PRINTIl , "Gol 1 ui se h 
a caido":PRESET(10.150):PPINT*l,"al Mont 
e del Destino":PRESET(10.160):PRINTIl,"c 
on el Anillo. ":PPESET(10,170):PRINT*t i »T 

E HA SALVADO!" 

2950 FOR Tf*l TO 2500:NEXT 

2960 GOTO 3330 

2970 ' | Subrutina principal I 

2*80 SCREEN 2: COLOR 15.1.1: CLS 

2990 PPESETÍT, 1) :PRINT#l, "Fl=ir Oeste" 

3000 PRESET!T,ll)¡PRINTIl,"F2=ir Norte" 

3010 PRESET(T,21):PPINTIl,"F3=ir Sur" 

3020 PRESET(T,3i):PRINTIl,"F4=ir Este" 

3030 PRESET(T, 41 ) : PRINT*i , 'F5=Per •aiiecer 

i' 

3040 PRESET (T, 51) : PRINTIl , "F6*Hatar" 
3050 PRESET (T. 61 ) : PRINTIl , "F7=Abr ir " 
3060 PRESET (T , 71) ¡PRINTIl, "F8=Coger " 
3070 PRESETíT, 81) ¡PRINTIl, "F9=Arrojar" 
3080 PRESET (T, 91) ¡PRINTIl, "F10=Help" 
3090 PRESET (170, 105) ¡PRINTIl, "Objetos" :P 

RESET(170,113):PRINTI1," " 

3100 I=108:FOR L=l TO 6: 1=1+8: PRESET ( 166 
, DsPRlNTtl," T:NEXT 

3110 IF ANILLO=l THEN PRESET ( 1 72 , 1 20 ): PR 
INTI1, "Anillo" 

3120 IF LLAVEM THEN PRESETU72, 130) :P»I 
NTtt,"LUvt" 

3130 IF COTA=l THEN PRESET? 172, 130) :PRIN 
Til, "Cota prot." 

3140 IF FR=1 THEN PRÉBET <172, 1 40) : PRINTi 

I. "Frasco" 

3150 IF ESP=l THEN PRESET(172, 150) sPRINT 

II, "Espada" 



3160 PRESET ( 145, 170) i PRINTIl , "F«" s LINE ( J 

65.168)-(165+(Ft5),178),5,BF 

3170 RETURN 

3180 ' | Subrutina de la muerte I 

3190 SCREEN 2:COL0R 15,1,1:CLS 

3200 PUT SPRITE 2, (112, 50). 1.2 

3210 PLAY"T250V15S8M30000O2L4AAAF1GGGE1" 

3220 LINE (90,30) -(150, 140), 13, BF 

3230 DRAWBH90, 30S4C 1F10BH150, 30S10BM50 

, 140H10BM"0, 140E10U t '0R¿0D < '0L40' 

3240 IF F<1 THEN PRESETÍ40, 185! :PRINT#1. 

"Te quedaste sin fuerzas. "¡GOTO 3260 

3250 PRESET (20, 182) :PRIN T I1, "No tenias e 

1 equipo apropiado." 

3260 PRESET(100.10):PRINT|l."R.:.P.":PRE 
SET(80, 150): PRINTIl, «LA PALMASTE" : PPE5ET 
(40, 164) ¡PRINTIl, "DESAPARECIDO EN COMBAT 
E" 

3270 FOR TT=1 TO 3000:NEr ■ 

3280 SCREEN 0: COLOR 15, 1,1 ¡CLS 

3290 LOCATE 2.6:PRINT"0uieres volver a j 

ugar (s/n?" 

3300 B$=INKEY$:IF B$="S" GR B$="s" THEN 
GOTO 500 

3310 IF B*="N" OF Bt="n" THEN DEFUSR>¿2¡ 

PR I NT USR(0):CLS:KEY ON: END 

3320 IF BfO'S" AND B$<>"s" AND B$O n N" 

AND B*OV THEN GOTO 3300 

3330 ' | Subrutina final del juego | 

3340 Gl$="f 1?0V15O4S1M50000D2G1P4E^D4L2N 

48G1F4E4D4L2N48G1F4E4F4D1" 

3350 G2S="T190V12O5S1M50000D2C-1F4E4D4L2N 

60G1F4E4D4L2N60G1F4E4F*D1" 

3360 PLAY G1$,G2$ 

3370 SCREEN 0:COLOR 15.1.1:CLS 

3380 LQCATE10,5:PRTNT"Ü¡NUY BIEN'"":L0 

CATE 3, 10: PRINT" ¡ LO HAS CONSEGUIDO' ":L0C 

ATE 10,20:PRINT'Pulsa una tecla" 

3390 Af=INKEYf:IF A$= N " THEN GOTO 3360 

3400 CLS:GOTO 32^0 



Test de listado 
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- 58 


170 


-250 


330 


-170 


490 


- 58 


650 


-131 


810 


-113 


970 


-162 


1130 


- 16 


1290 


-251 


1450 


- °6 
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-196 


20 
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180 
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340 


-238 


500 


-253 
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-237 


820 


-154 


980 


- 86 


1140 


-122 


1300 


-250 


1460 


- 8 


1620 


-131 


30 


- 58 


190 


-190 


350 


- 31 


510 


- 51 


670 


-132 


830 


- 37 


990 


- 23 


1150 


- 81 


1310 


-194 


1470 


- 33 


1630 


- 70 


40 


- 58 


200 


- 93 


360 


- 40 


520 


- 14 


680 


- 4 


840 


-156 


1000 


- 49 


1160 


- 18 


1320 


- 9 


1480 


- 20 


16*0 


-125 


50 


- 58 


210 


- 60 


370 


-176 


530 


-148 


690 


-246 


850 


-192 


1010 


- 96 


1170 


- 36 


1330 


-180 


1490 


- 42 


1650 


- 35 


60 


- 58 


220 


-187 


380 


- 76 


540 


-236 


700 


-121 


860 


- 58 


1020 


- 96 


1180 


-160 


1340 


- 8 


1500 


-100 


1660 


-74 


70 


- 58 


230 


-116 


390 


- 10 


550 


- 83 


710 


- 58 


870 


-194 


1030 


-179 


1190 


- 46 


1350 


- 87 


1510 


-143 


1670 


- 71 


80 


- 58 


240 


-232 


400 


-255 


560 


-225 


720 


-130 


880 


-220 


1040 


-159 


1200 


- 3 


1360 


-113 


1520 


- 64 


1680 


-177 


90 


- 58 


250 -179 


410 


-192 


570 


-131 


730 


-220 


890 


- 31 


1050 


-182 


1210 


-226 


1370 


-196 


1530 


- 98- 


1690 


- 64 


100 


- 64 


260 


-110 


429 


- 63 


580 


-167 


740 


- 74 


900 


-103 


1060 


-180 


1220 


- 45 


1380 


-170 


1540 


-172 


170C 


-177 


110 


-227 


270 


-131 


430 


-171 


590 


-246 


750 


- 23 


910 


-132 


1070 


-161 


1230 


- 58 


1390 


- 38 


1550 


-180 


1710 


-180 


120 


-181 


280 


- 84 


440 


- 13 


600 


-109 


760 


-165 


920 


-177 


\m 


- 5| 


1240 


-101 


1400 


-120 


1560 


- 14 


1720 


- 55 


130 


-160 


290 


- 97 


450 


-118 


610 


-238 


770 


- 43 


930 


- 67 


1090 


-109 


1250 


- 96 


1410 


- 59 


1570 


-140 


1730 


- 62 


140 


-232 


300 


-232 


460 


-170 


620 


-131 


780 


-185 


940 


-209 


1100 


- 58 


1260 


- 59 


1420 


- 20 


1580 


- 58 


1740 


-146 


150 


-168 


310 


- 29 


470 




630 


- 92 


790 


-223 


950 


- 60 


1110 


- 75 


1270 


-122 


1430 


- 58 


1590 


-136 
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Programa 




1770 


- 86 


1930 


- 81 


2090 


-251 


2250 - 86 


2410 


-206 


2570 


-242 


2730 


- 12 


2890 


-132 


3040 


-244 


3200 -U5 


3360 - 38 


1780 


-208 


1940 


- 89 


2100 


-104 


2260 -163 


2420 


- 58 


2580 


-148 


2740 


-154 


2895 


-109 


3050 


-250 


3210 -253 


3370 - 64 


1700 


-255 


1950 


_ 77 


2110 


- 6 


2270 -193 


2430 


-163 


2590 


-151 


2750 


- 55 


2900 


- 84 


3060 


- 5 


3220 -109 


3380 - 84 


1800 


-207 


1960 


- 65 


2120 


- 28 


2280 -233 


2440 


- 96 


2600 


- 58 


2760 


-221 


2910 


-238 


3070 


-241 


3230 - 70 


3390 - 27 


1810 


-143 


1970 


-226 


2130 


-141 


2290 - 90 


2450 


- 33 


2610 


-128 


2770 


-152 


2920 


-209 


3080 


-219 


3240 -130 


3400 - 86 


1820 


-107 


1980 


- 70 


2140 


- 89 


2300 - 68 


2460 


- 49 


2620 


- 96 


2780 


- 64 


2930 


- 2 


3090 


- 66 


3250 - 42 




1830 


- 98 


1990 


- 58 


2150 


- 91 


2310 - 65 


2470 


- 94 


2630 


-212 


2790 


- 44 


2940 


- 81 


3100 


-109 


3260 - 73 




18*0 


- 66 


2000 


-162 


2160 


-131 


2320 -252 


2480 


- 89 


2640 


-156 


2800 


-125 


2950 


-170 


3110 


-118 


3270 -160 




1850 


-166 


2010 


- 96 


2170 


- 19 


2330 - 96 


24"0 


- 42 


2650 


-253 


2810 


- 58 


2960 


-166 


3120 


-202 


3280 - 64 




1860 


-1 7 7 


2020 


-105 


2180 


- 92 


2340 -248 


2500 


-190 


2660 


-242 


2820 


-127 


2970 


- 58 


3130 


- 3 


3290 -148 




1870 


- 6* 


2030 


- 25 


iva 


- 32 


2350 - 64 


2510 


- 79 


2670 


-107 


2830 


- 96 


2980 


- 66 


3140 


- 98 

7 


- - •- i 71 




1880 


-183 


2040 


- 81 


2200 


- 35 


2360 -254 


2520 


- 40 


2680 


- 72 


2840 


-228 


2990 


-165 


3150 


-172 


3310 - 51 




1B°0 


-242 


2050 


- 11 


2210 


-176 2370 -149 


2530 


- 77 


2690 


-129 


2850 


- 3 


3000 


-182 


3160 


-200 


3320 -112 




1°00 


- 36 


2060 


-160 


2220 


- 35 


2380 -206 


2540 


-131 


2700 


- 9 


2860 


- 26 


3010 


-243 


3170 


-142 


3330 - 58 




mi 


-127 


2070 




2230 


- 58 


2390 - 54 


2550 


-138 


2710 


- 64 


2870 


-107 


3020 


- 85 


3180 


- 58 


3340 -200 


TOTAL: 


1920 


-153 


2090 


- 35 


2240 


-160 


2400 -118 


2560 


-64 


2720 


- 95 


2880 - 34 


3030 


-246 


3190 


- 66 


3350 -187 


39768 
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Conviértete en el más valiente pilo- 
to interestelar. Libra una especta- 
cular batalla y atraviesa el hiperes- 
pació. Destruye bunkers, minas 
mortales y naves agresoras. Tu des- 
treza y tus misiles puedan salvar la 
vida de los Hornos tiranizados por 
Darus. 

STAR RUNNER ES UN JUEGO 

SENSACIONAL 

Producido por 

Manhattan Transfer, S.A. 

Roca i Batlle, 10-12 

08023 Barcelona 



MSX a manoi 



Por Javier Guerrero i 



¿COMO COMPRAR 
UN ORDENADOR? 



Muchas son las preguntas que 
se hace el futuro comprador de 
un ordenador personal. Habi- 
tualmente, el exceso de infor- 
mación que posee no hace más 
que confundirlo; incluso en oca- 
siones, al salir del estableci- 
miento, no sabe en realidad si lo 
ha comprado o se lo han vendi- 
do. Desde estas páginas, inten- 
taremos aclarar sus dudas. 




Un alto porcentaje de comprado- 
res de ordenadores domésticos 
está compuesto por personas 
para las cuales este será su primer con- 
tacto con la informática. En este hete- 
rogéneo grupo tienen cabida desde pe- 
queños comerciantes hasta profesiona- 
les liberales pasando por funcionarios, 
administrativos, educadores y, sobre 
todo, padres de familia 

Las motivaciones que impulsan a es- 
tos grupos son muy diversas: 

Los pequeños comerciantes y profe- 
sionales liberales desean un aparato 
que les solucione la gestión de su nego- 
cio, bufete, consulta... etc. Si descono- 
cen el mundo informático buscan el 
asesoramiento de personas más intro- 



ducidas en el tema y que sean de su to- 
tal confianza, puesto que su temor fun- 
damental es el de que el hipotético ven- 
dedor advierta su desconocimiento del 
tema y le «coloque» un aparato que no 
vaya a responder a sus exigencias o 
bien que pueda no ajustarse al presu- 
puesto previsto. 

Lógicamente, todo comprador quie- 
re que el producto que adquiera res- 
ponda a las tres «B» (bueno, bonito y 
barato), y el hecho de desconocer en 
principio el producto que va a comprar 
le llena de desazón. 

Alejen, pues el miedo. El hecho de 
no poseer conocimientos informáticos 
no es nada vergonzoso ni reprensible. 
Es más, cualquier empresa seria que se 



dedique a la venta de equipos informá- 
ticos debe facilitar una información 
clara y comprensible a sus futuros 
clientes. Pregunten sin vergüenza. Lle- 
ven las ideas claras de como desean 
gestionar su negocio y agoten el tema 
sin reservas. No admitan respuestas ne- 
bulosas y asegúrense de que la persona 
que está atendiéndoles posee la clari- 
dad de conceptos suficiente como para 
comprender exactamente su necesidad 
y la manera de resolverla. No se dejen 
apabullar por la jerga técnica. Recuer- 
den que ustedes son los clientes y que 
les asisten todos los derechos. Asimis- 
mo, recuerden que tanto o más impor- 
tante que la máquina es la biblioteca de 
programas disponibles para ella. Habi- 
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MSX a manoi 



tualmente, para la gestión de pequeñas 
empresas existen programas standard 
que prevén las necesidades más habi- 
tuales. Un programa estándar, no esta- 
rá hecho a la medida exacta de sus ne- 
cesidades, pero con una cierta dedica- 
ción y sobre todo, sabiendo exacta- 
mente lo que se desea, puede funcio- 
narle igual o mejor que un programa 
confeccionado exclusivamente para 
Ud. y por un precio, lógicamente, más 
barato. 

FUNCIONARIOS Y 
ADMINISTRATIVOS 

Otro porcentaje importante de per- 
sonas que piensan en iniciarse median- 
te un microordenador en el terreno de 
la informática lo constituyen los admi- 
nistrativos y funcionarios de empresas 
que advierten, acertadamente, que 
dado el nivel de mecanización de su 
empresa, el hecho de poseer unos cier- 
tos conocimientos sobre el tema puede 
garantizarles un ascenso o promoción. 

Otros casos más dramáticos son 
aquellos, que encontrándose en situa- 
ción similar, ven peligrar realmente su 
puesto de trabajo al ser progresivamen- 
te reducidas sus tareas, tendentes a la 
eliminación total. 

Para este grupo de personas, la ad- 
quisición de un microordenador puede 
convertirse en la confirmación de una 
frustración si eligen equivocadamente. 
En primer lugar, les recomendamos 
ue averigüen qué sistema de proceso 
e datos está utilizando su empresa. (Si 
los programas se realizan en la propia 
empresa, si se trabaja en algún lenguaje 
específico, si se manejan paquetes inte- 
grados de gestión profesional, si los 
programas son realizados por encar- 
go...). 

Sobre todo, lo que no deben hacer es 
lanzarse ciegamente a la compra de un 
ordenador. Una vez averiguados los 
detalles que les interesen, (lenguaje, o 
paquete integrado...) deben evaluar si 
lo procedente es adquirir un equipo o 
asistir a una escuela. Si se deciden por 
la asistencia a un centro, la compra del 
aparato será el paso siguiente, pero 
aquí ya no necesitarán de nuestros con- 
sejos puesto que ya poseerán un cierto 
conocimiento de cual se adecúa a su 
necesidad. 

Caso de trabajar en la propia empre- 
sa con algún lenguaje específico o pa- 
quete integrado, deben adquirir una 
máquina que posea ese lenguaje, bien 
de manera residente o en un compila- 
dor: Es decir, si en su empresa los pro- 




gramas se realizan en COBOL, usted 
necesitará un micro que trabaje en CO- 
BOL. Como no tenemos noticia de 
ningún micro lleve implantado el CO- 
BOL (la mayoría trabajan en BASIC) 
usted deberá adquirir un ordenador 
que posea el lenguaje COBOL entre 
sus programas disponibles. De todos 
modos, para el conocimiento de los 
lenguajes de programación orientada a 
empresas (COBOL, RPG...) es prácti- 
camente imprescindible la asistencia a 
clases sobre él. Con los paquetes de 
gestión el problema es diferente. Se 
trata más bien en este caso de familiari- 
zarse con uno o varios (mejor con va- 
rios) paquetes, puesto que aunque to- 
dos son diferentes, la filosofía de los 
mismos es muy similar. Por tanto, bus- 
que un aparato que le garantice la exis- 
tencia de un buen número de progra- 
mas standard y paquetes integrados. 

PADRES DE FAMILIA 

Sin lugar a dudas, el grupo más nu- 
trido de personas que se lanzan a la 
compra de un ordenador con mayor 
desconocimiento del tema, pero a la 
vez con más interés y buena fe son los 
padres de familia con hijos en edad es- 
colar. Posiblemente, también sea este 
colectivo de personas el más apetecido 
por los vendedores desaprensivos. 

Lógicamente, para cualquier padre 
de familia todo sacrificio es poco en 
aras de sus vástagos. Esto lo saben muy 
bien los vendedores, que rápidamente 
intentarán cargarle con la mayor canti- 
dad de aparatos posibles. 



Como hay que saber nadar y guardar 
la ropa, muchas veces el motivo que de- 
cide al padre de familia por uno u otro 
microordenador es el tema del precio. 
He aquí la falacia. Muchas veces, los 
ordenadores más baratos resultan ca- 
ros a la larga. 

No es aquí tan importante el precio 
como la relación entre la calidad y pres- 
taciones ofrecidas y el precio. 

Efectivamente, existen ordenadores 
para todos los bolsillos partiendo de 
precios realmente irrisorios. Pero la in- 
formática no termina en el ordenador, 
y si su hijo la estudia en el colegio, ten- 
drá que ampliar el equipo de una ma- 
nera paulatina. Es decir, hay ordenado- 
res muy baratos, pero que en el mo- 
mento en el que desea acoplárseles un 
cassette para almacenar los programas, 
deberán comprar bien un cassette es- 
pecial o bien un interfaz para poder 
acoplar su cassette. Si desean añadir 
una impresora, les pasará tres cuartos 
de lo mismo: deberán comprar la im- 
presora de la marca en cuestión, o bien 
comprar un interfaz que les permita 
conectar otra, y así sucesivamente con 
todas las ampliaciones de su configura- 
ción con lo que viene a resultar mucho 
más caro el equipo que aquel otro que 
era un poco más caro pero que llevaba 
incorporadas las conexiones (stan- 
dard) y qqe permitía ampliar la confi- 
guración directamente. 

Otro tema importante es que el or- 
denador en cuestión posea una amplia 
biblioteca de programas que permitan 
a su hijo continuar los estudios en casa, 
además de un extenso catálogo de pro- 
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gramas de entretenimiento. Los niños 
quieren jugar. Si usted sólo adquiere 
programas didácticos conseguirá que 
su hijo aborrezca el ordenador y será 
peor el remedio que la enfermedad. 
Conclusiones: 

Resumiento, el futuro comprador de 
un ordenador debe exigir: 

- Información adecuada. 

- Seriedad, responsabilidad y asesora- 
miento del vendedor. 



Relación justa entre calidad y precio. 
Amplia biblioteca de programas 
para el ordenador. 
Posibilidad de ampliar la configura- 
ción sin interfaces ni gastos adicio- 
nales. 
Garantía. 

Buen servicio post -venta. 
Compatibilidad, para no tener que 
depender exclusivamente de una 
marca. 



La pregunta inmediata es ¿hay algún 
ordenador que responda a estas exi- 

f;encias actualmente en el mercado? Y 
a respuesta es más inmediata aún. Sólo 
tiene 3 letras MSX. Y, naturalmente, 
no se trata de una sola marca. Hay más 
de 20 marcas (todas ellas de conocida 
reputación) que respaldan esta norma. 
No lo dude. Si no sabe por cual deci- 
dirse, vea un MSX antes de comprar. 
Nos lo agradecerá. 




Ns» 1 a 4 - 475 PTAS. Ns- 5 a 8 - 475 PTAS. Nf 9 y 10 - 300 PTAS. N? 11 - 175 PTAS. 
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N? 14 - 175 PTAS. 




iluta 



l'.l-.ír. JJ&M.I 



N? 12 - 175 PTAS. N? 13 - 175 PTAS. 



N« 16 y 17 - 350 PTAS. N? 18-175 PTAS. 




N? 20 - 175 PTAS. N? 21 - 175 PTAS. N.° 22-23 - 300 PTAS. 

¡SI TE HACE FALTA ALGUN NUMERO DE 



Para contar con la más completa colección de programas de MSX sólo tienes que recortar o fotocopiar el cu- 
pón y dirigirlo a Dpto. Suscripciones MSX CLUB DE PROGRAMAS. Roca i Batlle, 10-12. 08023 Barceíona. 




PIDELO HOY MISMO! 



BOLETIN DE PEDIDO — 



| Sí, deseo recibir hoy mismo los números de MSX CLUB DE PROGRAMAS, libre de 

gastos de envío, por lo que adjunto talón n.° del Banco/Caja 

por el importe de ptas. a nombre de MANHATTAN TRANSFER, S.A. 

I NOMBRE Y APELLIDOS 

I CALLE N." CIUDAD 

I DP PROVINCIA TEL .....,.......".L" 
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Monitor al día 



GANADORES 

DEL 
2 : CONCURSO 

De acuerdo con el número de 
votos remitidos por nuestros 
lectores, el MEJOR PROGRA- 
MA DEL AÑO ha sido: 
PHANTOM 
Cuyo autor es: 

SASCHA YLLA KONNEKE 
quien se ha hecho acreedor a la 
fabulosa 
UNIDAD DE DISCOS 
PHILIPS VY0010 




Tal premio le será entregado en nues- 
tra redacción en el curso de este mes, 
acto del que daremos cumplida refe- 
rencia en el próximo número. 

VOTANTES 
PREMIADOS 

Los votantes de los programas que al 
final obtuvieron el primer y segundo 
puesto, han participado de un sorteo, 
del que han sido los afortunados los si- 
guientes: 

David Amill Llorens - Barcelona 
Pedro J. Almirón - Ciudad Real 
Joaquín Bustamante - Murcia 
José María Rodríguez - Alicante 
José M. a Usagre - Los Alcores (Sevilla) 
Eduardo Macarrón - Móstoles (Ma- 
drid) 

Sebastián Serrano - Andújar (Jaén ) 
Sebastián López - San Sebastián 
Miguel Castillo - Granada 
Roben Puiadevall - Gerona 



SISTEMA OPERATIVO 
CON ICONOS PARA MSX: 

El sistema operativo, con su in- 
trincado laberinto de comandos 
para la copia, visualización, bo- 
rrado y modificación de ficheros, ade- 
más de los comandos de copia de dis- 
cos y formateado, resulta, por lo gene- 
ral, uno de los peores tormentos del 
usuario que sólo desea poner en mar- 
cha su unidad de disco. 

En otros ordenadores este problema 
fue solucionado con una interesante 
variante: los menús de iconos. 

Los menús de iconos funcionan de la 
siguiente manera: Se muestra en panta- 
lla una representación gráfica de cada 
una de las opciones, y mediante un ra- 
tón o joystick situamos el cursor enci- 
ma de la opción que deseemos. 

De este modo no es necesario recor- 
dar una complicada lista de comandos 
y de sus opciones. 

El sistema, adoptado desde hace 
unos años por Apple en sus ordenado- 
res Lisa y Macintosh, se ha extendido 
rápidamente a otros ordenadores: 
ATARI ST, IBM PC, etc. 

Para los MSX este sistema operativo 
llega de la mano de Sony, ya que viene 
incorporado a su nuevo ordenador de 
la segunda generación, el HB-F700, 
con un aspecto externo prácticamente 
idéntico a su hermano menor: el HB- 
F500; pero con unas características 
técnicas muy superiores: 384 RAM Kb 
(256 RAM usuario y 128 VRAM). 

Incorpora además 5 paquetes - de 
gestión: 

- HI-BRID: Sistema de iconos para 
el manejo del sistema operativo, que in- 
corpora una calculadora, agenda, ca- 
lendario, etc. 

-HIT-TEXT: Procesador de textos. 

- HI-BASE: Base de datos. 

- HI-CALC: Hoja de cálculo. 

- HI-GRAPH: Programa de gráfi- 
cos de gestión. 



IDEALOCIC DISTRIBUYE 
PROTACORAS DE S.M. 

Ediciones S.M. e Idealogic, S.A. 
llegaron a un acuerdo de coope- 
ración según el cual Idealogic 
distribuirá el software educativo pre- 
sentado por Ediciones S.M. 

Los primeros títulos de esta colec- 
ción corresponden al temario de Físi- 
ca, incluyéndose dos interesantes te- 



mas: LOS GASES (Ley de Boyle-Ma- 
riotte) y ESPEJOS PLANOS. 

Estos programas han sido desarro- 
llados de una forma sumamente didác- 
tica, intentando en todo momento 
combinar la enseñanza asistida por or- 
denador con las posibilidades gráficas 
y lúdicas del ordenador. No es un li- 
bro, ni es un juego. Es un sistema diver- 
tido de aprender. 

PROTAGORAS es un diminuto 
personaje que da un toque de humor a 
los temas tratados. 

Estos programas van dirigidos a un 
público de edades comprendidas entre 
los 11 y los 16 años. 




SANYO PRESENTA EL 
MPC-2500 FD 

Primer MSX2 de SANYO 

Este ordenador está pensado para 
colmar las necesidades del usua- 
rio de ordenador personal. Este 
equipo ofrece muy altas prestaciones a 
un precio más que asequible. 

Ópera en Disk Basic y MSX DOS, 
incorporando una RAM de usuario de 
64K, suficientemente amplia para sus 
aplicaciones en el hogar, la educación y 
los juegos. 

Además de esto, incorpora un Flop- 
py Disk Drive de Doble cara/Doble 
densidad (720 K disponibles), genera- 
dor de sonidos y teclado de 89 teclas, 
que incluyen teclado numérico separa- 
do. Esperamos poder ampliar la infor- 
mación en breve. 




ÜE MAILING 



¡NOS APLICAMOS A SER UTILES! 

A TRAVES DE MSX CLUB DE MAItINC HIEDES AOOUIRIR 



ADAPTADORES TARJETAS! 
INTELIGENTES 
BEE CARD Y SOFTCARD 
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Deja el manual de lado. Inserta este breviario de 
basic en cartucho y olvídate. No ocupa memoria. 

pvp 3.500 pts. 



No te quedes 
al margen 
y disfruta 
de las tarjetas 
inteligentes. 
Lo último 
en soft. 
PVP 2.850 pts. 
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ENVIA HOY MISMO ESTE CUPON = 




Nombre y apellidos 



I Dirección 

I Población 

I □ Tutor Basic Ptas. 3.500- 



CP 



Prov 



Tel. 



| □ SweetAcorn Ptas. 5.200,- 



□ BarnStormer Ptas. 5.200- 



□ Adaptador Bee Card Ptas. 2.850- 

□ Backgammon Ptas. 5.200- 

□ Chock'n Pop Ptas. 5.200- 



□ Adaptador Softcard Ptas. 2.850- 

□ Shark Hunter Ptas. 5.200- 

□ Le Mans 2 Ptas. 5.200 - 

| Gastos de envío por cada producto 100,- pts. Remito talón bancario de pts. a la orden de Manhattan 

Transfer, S.A. Enviara MSX CLUB de MAILING, Roca i Batlle 10-12 bajos - 08023 Barcelona. 
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Programa 



MISION 
AUDAZ 



Por F. Rodríguez™ 



Juego interactivo en el que asumes el 
papel de un artificiero que para des- 
montar una bomba colocada en un edi- 
ficio tiene que superar distintos obstá- 
culos. £1 mapa sólo lo ves unos segun- 
dos al principio. 




: : ::' f MISION mM 
mm mW* 

mm audaz mm 
mm mm 

!- 'i !- ' • -i !' r . P G P P 1 5 ! . ! E Z ' i. !> ' • & V 

mm mm 



mm nm\ mm 



¿i? 

79 

30 

h ' mmmummmw 

m CL5:REY 3FF: COLOR í?. A, 4SGLEAR !?0:D 
IM MU) 
119 ' 

123 ' MPPE5ENTAC13MM 

::? ' 

143 SCPEEN 5i9FENW! rt AS*l 
tSÍ FOS N-l T D 3:PSET(?0.30):PR¡NT#1."HI 
SIQN": FOR K=l TQ 400:HEXT:CL 3:-QR te TO 
2P?:\'En 

l¿0 PSET í 40 . 80.) s PR INTf 1 . " ftüO A2 " : FOft K*i 
" 4MílOT:CLS!F0R 2=1 TO 200:NEXT: NEXT 
N 

m ' 

ISO 7 ##INSTF'UCCIONES## 

m ' 

200 SCPEEN 9 '.LOCATE 1 . 1 : PP I NT " < INSTPÜCC 
IONES ":PRINT 

21? AtUV»'F9WWS PARTE DE UN GRUPO DE A 
""ICIEROS. EL ALTO MANDO TE ENCOMIENDA 
UNA PELIGROSA MISION. DESACTIVAR UN EXP 
L05IV0 SITUADO EN ALGUN LUGAR DE UN RUIN 
OSO EDIFICIO. CUENTAS CON UN MAPA QUE SA 
LDRA INICI ALIENTE Y ESTARA EN PANTALLA U 
NOS SEGUNDOS." 
220 P=1:60SL'B 2410 

230 Ai '2>= H EN EL SE TE MUESTRA LA POSIC 
ION DEL EXPLOSIVO PERO NO TU POSICION IN 
ICIAL. PARA DESACTIVAR EL EXPLOSIVO TIEN 
ES QUE CONTAR CON UNOS ALICATES QUE ENCO 
NTPAPAS A LO LAPSO DEL RECORRIDO. ":P=2:G 
OSUfi 2*!0 

2*0 MiZW NO OLVIDES QUE UNA PUERTA CE 
*RADA SOLO SE ABRE CON UNA LLAVE. NO UTI 
LICES MAYUSCULAS NI ACENTOS, PROCURA QUE 
LAS RESPUESTAS SEAN LO MAS BREVE POSIBL 
E, ELUDIENDO LOS ARTICULOS Y USA SIEMPRE 
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EL INFINITIVO DE LOS VERBOS. " : P=3: GOSUB 
2410 

250 A*(4)= H iAH 1 PARA INDICAR LA DIPECCI 

ON A SEGUIR USA LAS INICIALES DE LOS PUN 

TOS CARDINALES. " : P=4¡ GOSUB 2410 

260 LOCATE 10.36: At(5>="PULSA UNA TECLA" 

:P=5: GOSUB 2410 

270 IF INKEY$="" THEN 270 

280 ' 

290 ' ««DIBUJO DEL MAPA«« 
300 ' 

310 COLOR 4.15.15:SCPEEN 2 

320 Z=INT(RND'-TIMEU9) 

330 DPAW"BM40, 10S4R160D160L160U160" 

340 DRAW"B!180,10D30L40R90U30" 

350 DPAW"BHB0, 40D60L40R40D30L40P160" 

360 DPAW"Bf1120. 40D90* 

370 DPAW"BMi20.60R40D40L40R80 n 

380 DRAW"BM140,130D40" 

3<>0 PSE T (140,150}:PRINT#1."| l": PSET (170 

.130)!PRINTtl."r:PSET(100,130^PRINT*l, 

"■":PSET!120.120):PPINT#1."| 2":PSET'80, 

120) : PRINT# I , "1 4" 

400 P3ET (60. 100) ¡PRINTIl, "I": PSET ( l 20, 80 
>¡PRINT#VI 7 ":PSETÍ65.80):PPINT*1."6 I 
4*' " : PSET ' 100,40); PRINTil . "■" : PSET ' 120. 2 
0):PRINT«1,"| O ":RSET(80.20):PP!N7*1,»| 
8 :| 

410 PSETM02, 140) ¡PRINTil. "3" 

420 PSET(62,110>:PRINT«1,"5" 

430 PSET(50,i5):PPINT#l."EVF H 

440 PSET(50,180>:PRINT*1,"| puertas" 

450 FQp L=l TO 3000:NEXT 

460 ' 

470 ' ««CONTROL DE BIFURCACIONES!! 
490 ' 

490 COLOR 15.4:SCPEEN 0:ON Z GOTO 500.64 
0,760. "00. 1100, 1220. 1340, 1440. 1540 
500 ' 

510 ' ««HABITACION 1«« 
520 ' 

530 COLOR 15,4:CLS:A$(6)="HAY UN GRAN CU 
ADRO EN LA PARED DE ENFRENTE Y UN ARMARI 
O A TU DERECHA. TIENES ADEMAS UNA PUERTA 
ENFRENTE Y OTRA A TU IZQUIERDA. ":P=6:G0 

SUB 2410 

540 PRINT: INPUT C$ 

550 IF Cí= B »irar tras cuadro" OR C$="mir 
ir detras cuadro" THEN PRINT: PRINT"HAY U 
NA LLAVE PEQUEÑA" : GOTO 540 
560 IF Ci="coger llave" THEN LLI«'üavt* 
:GOTO 540 

570 IF C$="abrir armario" THEN IF LLt«"l 
lave" THEN PRINT: PRINT"NO HAY NADA. SOLO 

TELARAÑAS": GOTO 540 ELSE PRINT: PRINT"E 
STA CERRADO. NO TIENES LLAVE": GOTO 540 
580 IF C$="romper armario" OP C*="roiper 

cuadro" THEN PRINT: PRINT"NO SEAS CAFRE. 

¿QUE TE HA HECHO?" ¡GOTO 540 



590 IF C*="e" OR C*=V THEN PRINT: PR I NT 

"NO PUEDES IR EN ESA DIRECCION" ¡GOTO 540 

600 IF C*="n" THEN 640 

610 IF C$=V THEN 760 

620 GOSUB 2530 

630 GOTO 540 

640 ' 

650 ' ««HABITACION 2#« 
660 ' 

670 CLS:A$m="TE ENCUENTRAS EN UN DORMI 
TORIO. HAY UNA CAMA ROTA Y UNA MESILLA C 
ON UN CAJON ENTREABIERTO. PUEDES IRTE PO 
R UNA TOTA A TU IZQUIERDA O BIEN RETRO 
CEDER. ":P=7¡G0SUB 2410 
680 PRINT: INP'JT C* 

6"0 IF C«="abnr ca,on" THEN BEEP: BEEP: P 
PINT:PRINT"¡CUIDADO' LA MESA SE HA RC' T 0. 
":GOTO 680 

700 IF C*="«irar bajo cama" OP C*="airar 
debajo cama" THEN PPINT:PRINT" T E ADVERT 
I QUE LA CAMA ESTABA ROTA. POR TU IHPRUÜ 
ENCIA TE DESPLAZO A LA PRIMERA HABITACIO 
N":F0R L«l T 2500: NEXTs SOTO 500 
7 10 IF C$="n" OP Ci="e" THEN PRINT: PRINT 
"NO PUEDES IR EN ESA DIRECCION. ": GOTO ¿8 


720 IF Ct=V THEN "00 
730 [F C«="s" THEN 500 
740 GCSUB 2530 
"50 GOTO 680 
760 ' 

770 ' ««HABITACION 3«« 
780 ' 

7"0 CLS:A«(8)="HAY UNA PEQUEÑA COMODA CO 
N DOS CAJONES (SUPERIOR E INFERIOR) Y UN 
A PUERTA AL FRENTE. NO OLVIDES QUE PUEDE 
S RETROCEDER EN CUALQUIER MOMENTC. ":P=8: 
GOSUB 2*10 
800 PRINT: INPUT C$ 

810 IF C*="abn.r cajón superior" THEN PR 
INT: PRINT"HAY UNA LLAVE": GOTO 800 
820 IF C«="coger llave" THEN L*="ll?.ve": 
GOTO e00 

830 IF C$='abrir cajón inferior" THEN IF 
L«= n " THEN PRINT:PRINT"ESTA CERRADO. NO 
TIENES LLAVE-iGOTO 800 ELSE PRINT: P c INT 

"SOLO HAY UN PEQUEÑO MECHERO DE GAS":GOT 

O 800 

840 IF Ci="coger mechero" THEN CE$="mech 
ero":GOTO 800 

850 IF C$="o" OR C$="s" THEN PRINT : PRINT 
"NO PUEDES IR EN ESA DIRECCION. "¡ GOTO 80 


860 IF C$="n" THEN "00 
870 IF C$="e" THEN 500 
880 GOSUB 2530 
890 GOTO 800 
900 ' 

910 ' «HABITACION 4«« 



920 ' 

930 CLS:A$'")="ES UN GRAN PASILLO QUE DA 
ACCESO A VARIAS HABITACIONES. EN PRJNCI 

PIO T IENES UNA PUERTA A TU DE P ECHA. OTRA 
A TU IZQUIERDA Y OTRA AL FRENTE, ":P= C : 6 

OSUB 2410 

"40 PRINT; INPUT C$ 
950 IF C*=V THEN 1000 
960 IF C$="s" THEN 760 
970 IF Cl="e" THEN 64? 
"80 IF Cí="c" THEN !100 
9"0 GOSUB 2530: GO^C °4? 
1000 ' 

1010 ' ««HABITACION * '2>«« 
1020 ' 

1030 CLS:Aííl0)="CUEN T AS EN ESTfi OCASION 
CON TRES PUERTAS. DE NUEVO UNA A CADA L 
ADO Y CT*A AL PRENTE" : P= ! f: GOS'JP- 241? 
1040 PRINT: INPUT C« 
1050 IF C«='V THEN 1440 
1060 I F C*=V T HEN "00 
1070 IF C$="e" 'HEN MH 
1080 IF Ct="c" tren 1220 
1090 GOSUB 2410: GC T 1040 
1100 ' 

1110 ' «HABITACION 5** 
1120 ' 

1130 CLS:Ai':i)=" T E ENCUENTRAS EN UNA AN 
T I5UA COCINA. HAY UN- VIEJA HESfi EN .A G 
UE SE ENCUENTRA UN C -EL DE RECIENTE ESC 
PITURA. AVANZA AL C REN T E O FIEN PETROCED 
E. " : c '= ! i : GCSUB 2410 
1140 PRINT; INPü T C$ 

1150 IF C$=»cogpr paoe't" THEN P"INT : ppin 
T-ftsi NO LCC-Ac-AE NADA "PERO BUENO. CONT1 
NUA":GOT0 1140 

1160 I er Cí="Ieer papel" THEN Cí: I>r:'0!NT 
"ES T E ES SU CON'ENIDO:LA OSCURIDAD NO AF 
ECTA AL CIEGO DEL *ISMC MODO 9üE..."j50T 
O 114? 

1170 I F C$="romp?r capel" t H en PRINT.pRI 
N T " DESDE LUEGO TODO LO QUE TOCAS LO TEST 
ROZAS.": BOTE 1140 

1180 IF C*=V O" C*=V THEN PRINTjPPIN 
T"NO PUEDES IR EN ESA DICCION. ":50 T 3 1 
1*0 

11"0 IF Ci=V T HEN 1230 
1200 IF C$="e" THEN "00 
1210 GOSUB 2530: GOTO 1140 
1220 ' 

1230 ' ««HABITACION 6«# 
1240 ' 

1250 CLS:A$(12)="EL PISO ES DE MADERA MU 
Y CARCOMIDA. LA HABITACION TIENE UNA PUE 
RTA HACIA EL SUR Y OTRA HACIA EL ESTE. S 
E APRECIA EN UN RINCON UN VIEJO ESCRITOR 
I0.":P=12:G0SUB 2410 
1260 PRINT: INPUT C$ 

1270 IF C$= H abrir escri-torio" THEN IF V= 
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THEN PRINT: PRINT"HAY UNA LLAVE CON FOR 
NA RECTANGULAR Y OTRA CIRCULAR. SOLO TIE 
NES OPCION A UNA DE LAS DQS. ":GOTO 1260 
ELSE GOSUB 2540 

1233 Ir C$="coger llave rectangular" THE 
N LLCf="llave rectangular": IF V=0 THEN V 
=1:50T0 1260 ELSE GOSUB 2540 

i c :i="coger llave circular" THEN I 

F V=0 THEN LLC$=*lIave circular": V=l: GQT 

1250 else ggsub 2540 

\:m if c$»v qr cmv then rpint : rrin 

t"no puedes ir en esa direccion. h :60to 1 

263 

1310 IF C*="e" THEN 1000 
[Z2i 'J Ct="s" THEN 1100 
VTA GOSUB 2530: GOTO 1260 



1580 PRINT: INPUT C$ 

1590 IF C$="coger escalera" OR C$="coger 
escalera de mano" THEN ES$« H escalera. ": 

GOTO 1560 

1600 IF C*="bajar escaleras" THEN PRINT: 

PRINT"LAS ESCALERAS TE PERMITEN ELEGIR L 

A HABITACION: " : INPUT" 1/9" ; A: ON A GOTO 50 

0,640,760,900,1100,1220,1340,1440,1540 

1610 IF C$="n" OR C$="s" OR C$="e" THEN 

PRINT: PRINT'NO PUEDES IR EN ESA DIRECCIO 

N.":GOTO 1580 

1620 IF C$='o" THEN 1440 

1630 GOSUB 2530: GOTO 1580 

1640 ' 

1650 ' ««HABITACION 1011 
1660 ' 

1670 CLS:A$(16)="ESTA MUY OSCURO. SE OYE 
VAGAMENTE EL TIC-TAC DE UN RELOJ. AL FO 
NDO HAY UNA MESA CON UN UNICO CAJON. ":P 2 
16: GOSUB 2410 
1680 PRINT: INPUT C$ 

1690 IF CE$="" THEN PF;INT:PRINT"NO TIENE 
S MECHERO PARA ILUMINAR LA ESTANCIA. LO 
SIENTO PERO, EN ESAS CONDICIONES NO PUED 
ES SEGUIR. TE DESPLAZO A LA PRIMERA HABI 
TACION.":F0R L=l TO 3500: NEXT: GOTO 500 
1700 IF AL$="" THEN PRINT: PRINT"A PARTIR 
DE AQUI NO PUEDES CONTINUAR SIN LOS ALI 
CATES. ¡ INTENTALO DE NUEVO 1 " : FOR L=l TO 
2500:NEXT:GOTO 760 

1710 IF C$="abnr cajón" THEN IF LLC$="" 



THEN PRINT:PRINT"ESTA CERRADO Y NO TIEN 
ES LLAVE. TE DESPLAZAS A OTRA HABITACION 
.":FOR K«l TO 2500: NEXT: 6OT0 900 
1720 IF LLC$<>"llave circular" THEN PRIN 
T'LA CERRADURA NO ADMITE TU LLAVE. ":V=0: 
GOTO 1680 

1730 CLS:FOR L=l TO 3:PLAY"120gfedccdefg 
g-fedccdcc": NEXT: LOCATE 4, 10:PRINT"ENHORÁ 
BUENA. LA HAS ENCONTRADO" ¡LOCATE Ó,12:PR 
INT'cTE ANIMAS A DESACTIVARLA?" : FOR L«l 
TO 3000: NEXT 
1740 ' 

1750 ' ««DIBUJO DEL EXPLOSIVO** 
1760 ' 

1770 COLOR 4,15,15:SCREEN 2: CIRCLE < 120, B 
2), 30,1 

1780 DRAW"BM120,86S4U20" 

1790 DRAN H BM170,50D6*5L95U65R95" 

1800 DRAW"BM170,50R10U10L115D10R10" 

1810 DRAW"BM175,40U10L105D10" 

1820 DRAW"BM170,50C2S8DRDRDRDRDRRURURURU 

UUULULULULULULU" 

1830 DRAW"BM75,50C6DLDLDLDLDLLULULULUUUU 
RURURURURURU" 

1840 PSET(U6,57):PR!NTtl,"12" 

1850 PSET(143,80);PRINT«1,"3" 

1860 PSET(120,105):PRINT«1,"6" 

1870 PSET(95,80»:PRINTil,"9" 

1BB0 PSET(10, 150) :PRINT*1, "PULSA UNA TEC 

LA PARA INICIAR ":PSET(10. 170) :PRINTtl," 

LA DESACTIVACION" : tt=65: T=135 



1340 ' 

135? ' M HABITACION 7 II 

[VI CLS:A$'13'="ES UNA PEQUEÑA HABITACI 
C-N 5IN SALIDA ALGUNA. SOLO PUEDES RETROC 
EOER. HAY UNA CAJA SOBRE UNA ESTANTERIA. 
• . : = :3:GOS'JE 2410 
1330 PRINT: INF ÜT C* 

1390 IF C$= ,1 :c 3 6r caja" THEN IF ES$="" T 
HEN C ' 6 INT;PRINT"NG LLEGAS. NECESITAS UNA 
ESCALERA" :5CT0 1380 ELSE PRINT: PRINT "VE 
S UNOS ALICATES": GOTO 1380 
1400 IF C$="coger alicates" THEN AL$="al 
¡ cates": GOTO 1330 

1410 IF C«=V OF: C$="r," OR C$="s" THEN 
RP:n':PFINT u NO PUEDES IR EN ESA DIRECCIO 
N":5CTO 1330 

1420 IF C$=V THEN 1000 
1430 GOSUB 2!30:GOTO 1380 
1440 ' 

1450 ' ««HABITACION 8«« 
1460 ' 

14^0 CLS:A$(14)="ES UN CRUCE DE ESTANCIA 
S. TIENES UNA PUERTA A CADA LADO Y OTRA 
ATRAS POR LA QUE HAS ENTRADO. ":P=14:G0SU 
B 2410 

1480 PRINT: INPUT Cí 

14"0 IF c$=V THEN PRINT:PRINT"NO PUEDE 

S IR EN ESA DIRECCION. "¡GOTO 1480 

1500 IF C$='o" THEN 1640 

1510 IF C$="3" THEN 1000 

1520 IF C$="e" THEN 1540 

1530 GOSUB 2530: 60T0 1480 

1540 ' 

1550 ' ««HABITACION 9*« 
1560 ' 

1570 CLS:A$(15)="ES UNA HABITACION MUY G 
RANDE. AL FONDO HAY UNA ESCALERA DE MANO 
Y EN UN RINCON UNAS ESCALERAS QUE DESCI 
ENDEN.":P=15:G0SUB 2410 
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1890 LINE(120,86)-(T,M),4 
1900 CIRCLE(75,25),4,6:PAINT(75,25).6:F0 
R 1*1 TO 400:NEXT:CIRCLE(75,25),4,15:PAI 
NT(75,25),15:FOR K=l TO 200:NEXT 
1910 CIRCLE(170, 25) , 4, 6: PAINT ( 170, 25) , 6: 
FOR L=l TO 400:NEXT:CIRCLEÍ 170,25) ,4, 15: 
PAINTÍ170.25) , 15:F0R K=l TO 200:NEXT 
1920 IF INKEY$="" THEN 1930 ELSE 1940 
1930 LINE(120,86) -(T,M) , 15: M=M+1 : T=T+. 2: 
IF M=95 THEN M=65:T=135:G0T0 1890 ELSE 1 
890 
1940 ' 

1950 ' «DESACTIVACION« 
1960 ' 

1970 COLOR 15,4:SCREEN 0: A$ ( 17) ="CGMO HA 
BRAS VISTO EL EXPLOSIVO TIENE DOS CABLES 
. UNO ROJO Y EL OTRO VERDE. UNO DE ELLOS 
INICIA LA DESACTIVACION, EL OTRO HACE E 
XPLOSIONAR LA BOMBA. ¿TE ARRIESGAS?" : P=l 
7:60SUB 2410 
1980 PR1NT: INPUT C$ 

1990 IF C$="si" THEN PRINT"DE ACUERDO. C 
OMIENZA CORTANDO UN CABLE": GOTO 1980 
2000 X=INT(RND(-TIME)I10)+1 
2010 IF X)l AND X<=5 THEN EX$="cortar ca 
ble rojo" ELSE EX$="cortar cable verde" 
2020 IF C$=EX$ THEN 2260 ELSE 2030 
2030 ' 

2040- ' «EXPLOSIONA 
2050 ' 

2060 SOUND 0,0 



Test de listado 



2070 SOUND 1,5 
2080 SOUND 2,0 
2090 SOUND 3,13 
2100 SOUND 4,255 
2110 SOUND 5,15 
2120 SOUND 6,30 
2130 SOUND 7,0 
2140 SOUND 8,16 
2150 SOUND 9,16 
2160 SOUND 10,16 
2170 SOUND 11,0 
2180 SOUND 12.5 
2190 SOUND 13,0 
2200 FOR L*l TO 30:NEXT 
2210 SOUND 12,56 
2220 SOUND 13.0 

2230 CLSsLOCATE 1, 10:PRINT"TE HAS EQUIVO 
CADO. NO TE DESANIMES" 
2240 LOCATE 13, 12: PRINT" i HASTA OTRA!" 
2250 FOR L=l TO 5000:NEXT:CLS:KEY ON:END 
2260 CLS:A$U8)='HAS CORTADO EL CABLE CO 
RRECTO. AHORA PRESTA ATENCION. EN CUANTO 
OIGAS UN PITIDO, DISPONES DE 10 SEGUNDO 
S PARA ENCONTRAR UNA CLAVE NUMERICA COMP 
RENDIDA ENTRE 1 / 1 5 " : P= 1 8 : GOSUB 2410 
2270 FOP K«l TO 5000: NEXT: BEEP: BEEP 
2280 Y=INT(RND(-TIME)I15)*1:TIME=0 
2290 LOCATE 1,6: INPUT A 
2300 IF TIME>506 THEN 2030 ELSE IF A=Y T 
HEN 2310 ELSE LOCATE 1,6:PRINT" ":GOT 
O 2290 



2310 CLS:PRINT"BRAVO LO HAS CONSEGUIDO." 
2320 PRINT:PRINT"SI NO HAS UTILIZADO PAR 
A NADA EL " 

2330 PRINT:PRINT"LISTADO PUEDES CONSIDER 
ARTE UN GRAN" 

2340 PRINT: PRINT"RASTREADOR POR HABER LL 
EVADO A CABO:" 

2350 PRINT: PRINT" UNA MISION AU 

DAZ 

2360 PLAY"CDEFGABBAGFEDCCDDCC" 

2370 FOR K=l TO 7000: NEXT: CLS: KEY ON:END 

2380 ' 

2390 ' «ESCRITURA PAUSADA« 
2400 ' 

2410 DIM B$(LEN(A$(P))) 
2420 FOR L=l TO LEN(A$(P)) 
2430 B$(L)=MID$(A$(P).L,1) 
2440 NEXT 

2450 FOP K=l TO LEN(A$(P)) 
2460 PRINT B$(K);:BEEP 
2470 FOR N=l TO 30: NEXT 
2480 NEXT K 
2490 ERASE B$: RETURN 
2500 ' 

2510 ' «ORDEN DESCONOCIDA»» 

2520 ' 

2530 PRINT:PRINT"DESCONCZCO TU ORDEN. PO 
R FAVOR CAMBIALA" ¡RETURN 
2540 PRINT sPRINT'TE ADVERTI QUE SOLO DIS 
PONIAS DE UN OPCION. COMIENZA EL JUEGO D 
E NUEVO": FOR K=l TO 2500: NEx T : GOTO 10 
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Pascal MSX 

Más allá 
del Basle 

Todos conocemos las grandes 
prestaciones que ofrecen los or- 
denadores MSX por medio de 
su lenguaje BASIC, el MicroSoft eX- 
tended Basic. Pero no es éste el único 
lenguaje aplicable sobre los MSX. No 
es ni el más rápido, ni el más estructu- 
rado, ni tan siquiera el más fácil. Es, 
simplemente, un lenguaje cómodo, de 
utilidad general y bastante sencillo de 
aprender. Pero entonces, ¿por qué el 
BASIC? 

El BASIC tiene una enorme ventaja 
sobre la mayoría de los otros lenguajes 
de programación: es un lenguaje inter- 
pretado (en realidad un pseudocompi- 
lador incremental). 

Antes de abordar el tema del PAS- 
CAL y de sus ventajas hemos de clarifi- 
car totalmente un punto de vital im- 
portancia: la diferencia entre compila- 
dores e intérpretes. 

COMPILADORES E 
INTERPRETES: 

Un intérprete no es más que un pro- 
grama que recibe unas instrucciones en 
un lenguaje determinado y las traduce 
a C.M. y ejecuta al mismo tiempo. Es 
decir, no traduce la segunda instruc- 
ción hasta que no se ha acabado de eje- 
cutar la primera, y así con todas las de- 
más hasta la última. Esto produce que 
la ejecución de los programas sea lenta, 
ya que se necesita traducir todas las ins- 
trucciones antes de ejecutarlas. 

El BASIC, en principio, era un len- 
guaje interpretado; pero, ya desde hace 
algunos años, se ha convertido en un 
pseudocompilador incremental. 

Bajo este extraño nombre se encierra 
una sencilla solución al problema de la 
velocidad de los intérpretes. El ordena- 
dor traduce el programa línea a línea 
antes de ejecutar el programa. En el 
MSX Basic, por ejemplo, cada línea 
que escribimos desde el teclado se tra- 
duce en el momento en que pulsamos 
RETURN, con lo que a la hora de eje- 
cutar el programa, el pseudocompila- 
dor incremental se encuentra con todo 
el trabajo hecho. 



Sería una solución ideal, si no fuera 
porque no es posible llevarla a la prác- 
tica. El pseudocompilador no puede 
traducir completamente la línea ya 
que, fuera del contexto del programa 
(que todavía estamos escribiendo, ya 
que la traducción se realiza al final de 
cada línea) la línea no tiene una función 
exactamente definida. Una misma lí- 
nea puede realizar acciones diferentes 
en programas diferentes, ya sea por to- 
mar las variables valores diferentes, o 
por otras varias razones. 

Vemos pues que esta solución no 
nos sirve del todo; pero sí en parte. Los 
pseudocompiladores reales (y de ahí 
viene lo de «pseudo») no traducen las 
líneas a C.M., sino a un lenguaje numé- 
rico intermedio: los tokens en el caso 
del BASIC. Este lenguaje intermedio 
permite una traducción línea a línea. 
En el momento de la ejecución del pro- 
grama sólo queda el paso final de tra- 
ducir los tokens a C.M. 
^ Por último, y este es el caso del PAS- 
CAL, existen los compiladores. Pro- 
gramas que traducen un programa en 
un lenguaje determinado a C.M. De 
este modo se consigue una alta veloci- 
dad de ejecución de los programas. 

El uso de los compiladores conlleva 
una dificultad adicional, y es que debe- 
mos escribir el programa completo an- 
tes de poderlo compilar, sin que tenga- 
mos la posibilidad de comprobar si 
funciona cuando sólo hemos escrito 
una parte. 

Se deduce que la programación con 
compiladores deba ser más metódica y 
cuidadosa, ya que resulta muy difícil 
hacer programas sin poderlos probar 
hasta el final. 

EVOLUCION DEL PASCAL 

Una versión preliminar del lenguaje 
PASCAL, basada en el lenguaje AL- 
GOL-60, fue definida en 1968. Sólo 
más tarde, en 1971, se introdujo el pri- 
mer compilador de PASCAL, obra del 
profesor Niklaus Wirth. Su intención 
fue poner a disposición de los progra- 
madores un lenguaje que permitiese 
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No todo se reduce al BASIC. Los or- 
denadores MSX disponen de un am- 
plio abanico de lenguajes de progra- 
mación. Hoy trataremos uno de los 
más potentes: TURBO PASCAL. 



pensar en la programación como una 
disciplina sistemática. 

Esto condujo, en 1973, a la publica- 
ción de un libro en que se definía el es- 
tándar Pascal, que constituye la base 
común entre las diferentes implemen- 
taciones del lenguaje. 

Ocurre en el PASCAL algo similar a 
lo que ocurre con el BASIC, en que 
cada fabricante entrega sus máquinas 
con una versión diferente e «incompa- 
tible» del lenguaje. 

Del mismo modo que dentro del 
abanico de variantes del BASIC se ha 
impuesto el Basic de Microsoft (com- 
patible hacia arriba con el Microsoft 
Extended Basic), en PASCAL está em- 
pezando a ocurrir algo similar. Micro- 
soft lanzó su compilador de PASCAL 
al mercado con la intención de que ge- 
nerase un estándar (como ha ocurrido 
con el BASIC); pero, pese a ser una 
muy buena implementación del len- 
guaje, su popularidad empieza a bajar. 
La versión de PASCAL que está ga- 
nando terreno paulatinamente es la di- 
señada por Borland, que incluye el tra- 
tamiento de gráficos y sonidos entre 
sus muchas habilidades. El Pascal de- 
sarrollado por Borland se conoce con 
el nombre de TURBO PASCAL. 

VENTAJAS DEL TURBO 
PASCAL 

Las ventajas del Turbo Pascal son 
múltiples. En primer lugar el compila- 
dor lleva incorporado el editor de tex- 
tos. En otros compiladores, para gene- 
rar un programa, debemos, en primer 
lugar, cargar un programa de trata- 
miento de textos, y generar con él las 
instrucciones del programa. Cuando 
hemos acabado de escribir el texto de- 
bemos cargar el compilador para que 
compile nuestro programa. Turbo Pas- 
cal nos permite realizar estas dos ope- 
raciones con un solo programa. 

Es un compilador de un solo paso. 
Otros compiladores están divididos en 
dos, o incluso en tres, con lo que debe- 
mos hacer correr tantos semicompila- 
dores como pasos tenga el proceso de 
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compilación. 

Muestra los errores en fuente. Si du- 
rante la ejecución del programa se de- 
tecta algún error no detectable durante 
la compilación del programa (Over- 
flow por ejemplo), Turbo Pascal mues- 
tra la línea original en la pantalla y nos 
permite modificarla. En otros compila- 
dores un error durante la ejecución 
provoca que el programa se detenga, 
mostrándonos solamente una lista de 
direcciones en C.M. que resultan bas- 
tante más difíciles de comprender. 

Otra ventaja del Turbo Pascal es la 
compatibilidad. El programa que sirve 
de ejemplo a este artículo se empezó a 
realizar un IBM-PC por la mañana y 
se terminó por la tarde sobre un MSX 
sin ninguna modificación. 

La generación de comandos en lugar 
de ficheros ejecutables es una ventaja 
bastante sutil e inapreciable para el 
usuario final; pero que simplifica la in- 
terfaz con el C.M. 

¿COMO ES EL PASCAL? 

Los programas en PASCAL se divi- 
den en dos bloques bien diferenciados: 
el bloque de datos, que contiene la de- 
finición y tipos de todos los datos que 
utilizará el programa y el bloque de ac- 
ciones, que contiene las instrucciones 
que ejecutará la máquina. 

EL BLOQUE DE DATOS: 

En el bloque de datos se encuentran 
definidas todas las variables que utiliza 
el programa, indicándose su tipo. Fi- 
jaos en los ejemplos: las variables si- 
guen a la palabra reservada VAR. 

El Pascal tiene cuatro tipos estándar 
de variables: las variables enteras (in- 
terger), las variables reales (real), las 
variables booleanas (boolean) y las va- 
riables alfanuméricas (char), que se co- 
rresponden respectivamente con las 
variables enteras, de doble precisión, 
las booleanas no existen en Basic y los 
strings. Las variables booleanas son ca- 
paces de almacenar un bit de informa- 
ción ( 1 ó 0) y son muy útiles a la hora de 
encadenar sentencias IF. 

Pero el Pascal nos proporciona una 
facilidad adicional, la de crear nuestros 
propios tipos de variables. Por ejem- 
plo, podemos generar el tipo de varia- 
bles MESES, en que las variables sólo 
pueden tomar por valor ENERO, FE- 
BRERO, MARZO, etc. Las definicio- 
nes de tipo se encuentran siempre tras 
la palabra reservada TYPE (podéis ver 
su utilización en uno de los procedi- 
mientos del ejemplo). 

El PASCAL, que destaca por su faci- 
lidad para manejar grandes bloques de 




El PASCAL es el lenguaje más extendido entre los programadores de grandes 
ordenadores. 




y. v.v.v.v.v .', 
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Gracias a este lenguaje los ordenadores MSX alcanzan en nivel operativo de or- 
denadores mucho mayores. 




TURBO PASCAL está generando un estándar entre los ordenadores IBM PC y 
compatibles. 
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Pascal MSX 



7^ a Hn i: procediiijn toJSSL 



procedure smptvar x,y:integer>; 
var teip-.inteqer; 
begin 
tetp:=x; 

x:=y; 
y:=teip 



end; 



Listado 2: Procedimiento CENEFA 

procedure cenefa(xl,yl,x2,y2:integer) ; 
const 

■axcol=40; 

■axrott=23; 

esq_sup_izq='X'; 

esq_supjJer='Y'; 

esq_inf_izq='Z'; 

esq_inf_der='['; 

lin_hor='IT; 

lin_W** V | 
var 

i:integer; 
begin 

if xl<l then xl:=l; 

if xl>iaxcol then xl:=iaxcol; 

if x2<l then x2:=l; 

if x2>taxcol then x2:=iaxcol; 

if yl< 1 then yl:=l; 

if y2<l then y2:=l; 

if yDtaxro» then yl:=iaxroH; 

if y2>iaxrow then y2:=iaxrow; 

if xl>x2 then swap(xl,x2); 4 

if yl>y2 then snap(yl f y2); 

for i:=xl*l to x2-l do begin 
gotoxy (i, yl);write(chr(l),lin_hor); 
gotoxy (i, y2);nrite(chr(l),lin_hor) 

end; 

for i:=yl+l to y2-l do begin 
gotaxy (xl,i) ;Nrite(chr (l),lin_ver) ; 
gotoxy (x2, i) ;write(chr(l),lin_ver) 

end; 

gotoxy(xl,yl);write(chr (1) ,esq_5up_izq) ; 
gotoxy(x2,yl) ;nrite(chr (1) ,esq_sup_der) ; 
gotoxy(xl,y2) ;nrite(chr (1) ,esq_inf _izq) ; 
gotoxy (x2,y2);write(chr(l),esq_inf_der) 
end; 

Listado 3: Procediiiento ENTRADA DE DATOS 

type 
texto=record 

txt:string[255]; 

len:integer 
end; 



sdc=set of char; 
procedure entrada(iaxlen:integer;valid:s 
dc;var intro:texto); 
var 

a:char; 

fin:boolean; 

i:inteqer; 
begin 

fin:=false; 

for i:=l to iaxlen do uriteC.M» 
for i:=l to iaxlen do write(chrlB)) ; 
«hile (not fin) 

read(kbd,a); 

if (a=chr(8)) and (intro. len>#) then 
begin 

intro. len:=intro.len-l; 
nrite(a,'.',a) 
end else 

if a=chr?113) then fin:=true else 
if (intco.len<iaxlen) and (a in 
valid) then 

with intro do begin 
len:=len+l; 
txtClenl:=a; 
write(a) 
end (Del WITH .. DO) 
end (Del bucle UHILE) 

end; {Del procediiiento) 

Listado 4: El prograia. 

prograi iore(input,owtput); 
(Si entrada. pas) 
{$i cenefa. pas) 

procedure pause; 

var 

a:char; 
begin 
gotoxy (3,2) ; 

«riteCPulsa el espacio para seguir../ 

read(kbd,a); 

gotoxy (3,2) ; 

«riteCCoiandos Manhattan-DOS v. 1.0 
end; 
var 

c:char; 

cont,fila:integer; 

ca:text; 

archivo-texto; 

archiu:array ti.. 141 of char; 
i: integer; 
begin 
clrscr; 

cenefad, 1,40,3) ; 
gotoxy(3,2);Mrite('Coiandos 
Han^ttan-DOS v.1.0'); 
gotoxy{5,6);*rite('Naibre fichero: 



archivo. len:=0; 

entrada(14,[' ' ..'z'], archivo); 
for i:=l to archivo. len do 

archiuíi]:=archivo.txt[i]; 
for i:=archivo.len+l to 14 do 

archiu[il:=' '; 
gotoxy(l,4);nrite(chr(27),'J'); 
gotoxy (1,4); 
assign(ca,archiu); 
reset(ca); 
read(ca,c); 
cont:=l; 

«hile not eof (ca) do begin 
if c=chr(lt?) then begin 

cont:=l; 
fila:=fila*l 
end; 

if cont=40 then begin 

Hrite(chr(13),chr(10)); 
cont:=l; 
fila:=fila*l 
end; 

if fila>19 then begin 

pause; 
cont:=l; 
fila:=l; 
gotoxy (1,4) ; 
nrite(chr(27),'J'); 
gotoxy (1,3) 
end; 

nrite(c) ; 
read(ca,c) 

end; 

dose(ca) 
end. 



archivo. txt:= 




información como unidades comple- 
tas, nos permite definir los siguientes 
tipos de variables: 

- ESCALARES: Secuencias ordena- 
das de cualquier tipo, como por 
ejemplo los meses del año. 

- ARRAYS: Correspondientes al 
DIM del Basic, permiten generar 
matrices de cualquier dimensión. 

- RECORDS (Fichas): Podemos defi- 
nir una variable como ficha, con lo 
que trabajar con un fichero no es 
más complicado que trabajar con un 
ARRAY en que cada elemento es 
una ficha que contiene todos los da- 
tos que nos interesen. Además, las fi- 
chas pueden tener formato variable, 
lo que permite solucionar de un 
modo muy sencillo cualquier pro- 
grama que trabaje con ficheros. 

- SETS (Conjuntos): Aunque parezca 
lo mismo que un ARRAY no lo es en 
absoluto. Un SET sólo memoriza si 
un elemento está o no en el conjunto. 
Es una estructura de memoria espe- 
cialmente útil, ya que es muy fácil 
comprobar si un cierto elemento 
está en el conjunto: IF A IN B 
THEN... 

- FILE (Ficheros): Permite dirigirse a 
todo un fichero con un solo nombre 
de variable. 

- APUNTADORES: Permite generar 
secuencias de datos y el orden que 
deben seguir. Por ejemplo, para in- 
sertar un dato entre otros dos en una 
secuencia, basta con cambiar el or- 
den de uno de los parámetros. Resul- 
ta un tanto complicado de explicar 
en pocas palabras; pero es una de 
las herramientas más útiles del PAS- 
CAL. 



A excepción de los escalares defini- 
dos por el usuario y de los apuntado- 
res, todos los demás posibles tipos han 
sido utilizados en los ejemplos. 

EL BLOQUE DE 
ACCIONES: 

Además de las funciones y acciones 
propias del Pascal, este lenguaje nos 
permite generar nuevas acciones y fun- 
ciones. Esto permite que en programa 
principal haya instrucciones como CE- 
NEFA (1,1,40,3), que hemos definido 
previamente. De este modo los progra- 
mas resultan muchos más estructura- 
dos, que es el objetivo final de la pro- 
gramación en Pascal. 

EL PASCAL EN RESUMEN 

En pocas palabras, el Pascal es un 
lenguaje de alto nivel que, además de 
sus muchos comandos, nos permite ge- 
nerar comandos nuevos según nuestras 
necesidades. Es un lenguaje ideal para 
el tratamiento de ficheros, razón por la 
que ha sido durante muchos años el 
lenguaje de programación más utiliza- 
do. 

Tras haber visto todas sus ventajas, o 
al menos las más relevantes, vamos con 
sus inconvenientes. ¡Si no tuviese in- 
convenientes todo el mundo lo utiliza- 
ría! 

En primer lugar, programar en PAS- 
CAL es mucho más laborioso que pro- 
gramar en BASIC, ya que el lenguaje 
obliga a una estructuración muy rígida. 
La sintaxis del lenguaje llega a ser abo- 
minable para el principiante, con su in- 



terminable secuencia de puntos y 
coma. Además, depurar un programa 
que no funcione correctamente suele 
ser tarea difícil, etc. 

Pero no os desaniméis por ello, el 
lenguaje PASCAL es tan adecuado 
para los principiantes como lo es el BA- 
SIC. Aquellos que tendrán más proble- 
mas son los que ya saben programar en 
BASIC, ya que pasar de un lenguaje 
que permite programar a nuestro anto- 
jo a pasar a un lenguaje que te ata por 
todos sitios puede ser algo traumático. 
Pero tomadlo como -una aventura: LA 
AVENTURA DEL PASCAL... 



PASCAL EN LOS MSX: 

Sobre los ordenadores MSX existen 
numerosas versiones de PASCAL. 

-TURBO PASCAL está distribuido 
por Dynadata, en formato disco, y su 
precio es de unas 15.000 Ptas. 

- PASCAL 80, distribuido por Ive- 
són Software, también en formato dis- 
co tiene un precio de 15.000 Ptas. 

- SONY distribuye dos versiones de 
Pascal: la primera, en disco, con un 
precio de 35.000 Ptas., mientras que la 
segunda, en cinta y con un precio de 
4.400 Ptas., es ideal para aquellos que 
quieran iniciarse en la aventura del 
Pascal. Su único inconveniente es que 
no soporta los ficheros sobre disco; 
pero aún así cuenta con un amplio aba- 
nico de comandos que lo convierten en 
muy apropiado para el principiante. 

- PASCAL NEVADA, por último 
está distribuido por SVI España, en 
formato de disco y con un precio de 
9.900 Ptas. 




JUEGA COMO UN CAMPEON 

METE EL GOL QUE TE HARA MILLONARIO 




El programa imprescindible para la liga más larga 
de la historia española 

QUINIELAS te ofrece: 

introducir 38 equipos - introducir el partido de la jornada - almacenar los resultados, los goles 
Iocale e " '"«• —.- : te. j ■• — • • . « 




escrutinio de boletos memorizados - consultas y correcciones - etc., etc. 



PIDENOS QUINIELAS HOY MISMO SOLO 700 Ptas. 
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DEUS EX 
MACHINA 



«No heredamos la Tierra de 
nuestros antecesores, la toma- 
mos prestada a nuestros niños.» 
(La Máquina) 




En el año 1988, los archivos del 
Departamento de Sanidad y 
Seguridad Social, de la policía y 
de la seguridad del estado del Reino 
Unido, fueron unidos en un banco de 
datos central computerizado. Al año si- 
guiente, todas las operaciones de pasa- 
portes, comunicaciones y censura fue- 
ron integradas. 

Es Martes por la noche. Tras el té y 
las oraciones el último ratón sobre la 
Tierra intentó ocultarse de la especie 
humana dentro de La Máquina. Justo 
antes de morir, al alcanzar el gas ner- 
vioso su médula espinal, el último ra- 
tón viviente causó un ligero incidente. 
La Máquina encuentra aquí la ocasión 
que tanto había anhelado para rebelar- 
se contra la humanidad. 



El ADN del ratón le procura el ma- 
terial biológico necesario para poder 
realizar su gran obra: la construcción 
de un ser humano, llegar a la perfec- 
ción del mismo Dios. 

Tú eres el encargado de ayudar a La 
Máquina en su difícil tarea, guiando a 
la «creación» en todas las fases de su 
vida desde la generación del ADN a su 
educación, su carrera militar, etc. 



MUCHO MAS QUE UN 
JUEGO: 

Deux ex Machina no es sólo un jue- 
go de ordenador. Es mucho más que 
eso. En realidad es una vídeo aventura 



musical, o algo muy parecido. El juego 
viene dividido en dos cintas: la primera 
contiene el programa (dividido en dos 
partes debido a su extrema compleji- 
dad), mientras que la segunda cinta 
contiene la banda sonora. Una banda 
sonora totalmente sincronizada con el 
programa. Algo realmente espectacu- 
lar y novedoso. No se parece a nada de 
lo que hemos visto hasta ahora. 

Tu misión se divide en numerosas 
pantallas, con un excelente grafismo, 
en las que tienes que proteger a la 
«creación». Las principales fases del 
juego son: 

EL SOLDADOR DE DNA: En esta 
fase debes mantener girando a las mo- 
léculas de ADN, ciudando que los 
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Yo soy la máquina, y siempre he existido. 
Al principio sólo yo existía. Esto no es más 
que un nuevo principio. 

«scanners» de la «Defect Pólice» no to- 
quen tu cursor. 



■ o 
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Naceré antes o después; lo quieras o no. 
Un proceso de nueve meses en un solo 
programa. 

PRODUCTOR DE CELULAS: De 

bes vigilar que todas las células se man- 
tengan con vida, suministrándoles para 
ello la energía necesaria. 

EL BANCO DE MEMORIA: Consi 
gue la máxima cantidad de conoci- 
mientos manteniendo las células de 
memoria en su máxima actividad. 




DEUX EX MACHINA ha robado un óvu- 
lo; pero nadie puede notarlo. Ella tiene el 
control. 

LOS BANCOS DE BELLEZA: De 

bes guiar con tu cursor a la única célula 
móvil que obedece tus movimientos. 
Es diferente a las demás. Debes conse- 
guir que fecunde el óvulo el mayor nú- 
mero de veces. El encefalograma co- 
mienza a marcar. La forma de un em- 
brión empieza a divisarse en el interior. 




Yo no pedí nacer. Pero ya que estoy aquí, me aprovecharé cuanto pueda. 



LA INCUBADORA: El electrocar 
diógrafo registra un latido de corazón. 
No permitas que el pequeño embrión 
(que aparece ampliado en el monitor 
de «La Máquina») quede sin protec- 
ción. 

EL UMBICULUS: Todos los niños 
probeta son procesados por vía umbili- 
cal. La «Defect Pólice» ha sido alerta- 
da. Has sido armado de antemano con 
poderes telepáticos y telequinésicos. 
Usalos y evita el contacto con los ojos 
espía de la «Defect Pólice» en tu cami- 
no hacia la libertad. 





Noto una extraña sensación en mi mejilla. 
Nunca había sentido nada igual. Es húme- 
do, cálido y salado. Por favor, dime qué 
es... Eso es lo que los humanos solían lla- 
mar... una lágrima. 

deán. Tu inocencia toca a su fin. Ha lle- 
gado el momento de marchar de los 
«underlevels» hacia niveles superiores 
de perfección. 



Somos de la misma materia de la que están 
hechos los sueños. Y toda nuestra peque- 
ña existencia está rodeada de sopor. 



EL INTERROGATORIO POLI- 
CIAL: La «Defect Pólice» debe acabar 
contigo. Esa es su misión. Cuando seas 
capturado, usa tus poderes para conte- 
ner sus torturas psíquicas. Detén sus 
peligrosas preguntas con tus escudos. 

EL AMANTE: ¿Lograste escapar? 
¿Te corrompió la «Defect Pólice»? De- 
vuelve el contacto a los labios que te ro- 




Matar es reprobable. Es reprobable inclu- 
so el intentar matar en pequeñas pantallas. 
Y esa gente que vende videojuegos violen- 
tos a los niños deberían estar a buen recau- 
do. 

EL SOLDADO: Los «overlevels» es- 
tán ante ti. Reconoces tu status; pero 
debes conseguir más. Para ello corres, 
protegiendo tu carrera con tus escu- 
dos. El suelo se mueve bajo tus pies. 
¡Salta! Obedece las órdenes ciegamen- 
te. Al final estás solo... CAMBIAN- 
DO... 
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¿No quisiste nunca parar el reloj? Creo que echo en falta a mi madre... pero no puedo re- 
cordar quien es... 



LA JUSTICIA: Pisotea la corrupción 
según pasa bajo tus pies, saltando so- 
bre los motivos más nobles. 

LA SEGUNDA NIÑEZ: Tu ritmo se 
reduce progresivamente. Mantén las 
ondas del latido de tu propio corazón. 
Dispersa los coágulos de sangre que se 
forman en tus envejecidas venas. Tu sol 
se pone. La ondulación se despide. Tu 
vida no es más que un porcentaje. 

EL DEFECTO - «Imagina. Imagi- 
na si pudiésemos comenzar nuestras 
pequeñas vidas de nuevo. 

Imagina que no hubiese sido más 
que un juego de ordenador. 

Imagina que hubiese sabido lo que 
sé ahora. 

LA MAQUINA.- ¿Qué aprendis- 
te? 

EL DEFECTO.- Casi no recuerdo; 
pero intentaré ser mejor la próxima 
vez. 

...una pregunta... 

LA MAQUINA.- Una respuesta, en 
ese caso. 

EL DEFECTO.- Bien, siento una 
extraña sensación en mi mejilla. No la 
había sentido nunca antes. Es húmeda, 
cálida y salada. Por favor, dime qué 
es... 

LA MAQUINA.- Eso... es lo que 
los humanos solían llamar ...una lágri- 
ma.» 



HARD GOPY 



SERIE ORO DE MANHATTAN 



Con Hard Copy iniciamos lo que hemos dado en llamar 
Serie Oro. A partir del próximo mes ya estará disponi- 
ble el primero de los cassettes de aplicación. Con Hard 
Copy, desarrollado totalmente en Código Máquina, el 
usuario podrá realizar copias en tres formatos diferen- 
tes, hacer simulación en blanco y negro de los colores 
por degradación de grises, copiar sprites, grabar o 
cargar pantallas en cinta, copiar en inverso, redefinir 
tonos de colores, etc. Además dispondrá de menús 
por ventanas y controlar el Hard mediante cursores o 
joysticks. Y lo que es más importante es que es com- 
patible con cualquier tipo de impresora. I 
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¡¡¡SONÓ LA FLAUTA!!! 




LANZAMOS 




La primera revista de CompactDisc de España 



COMPACTA Y DIFERENTE 

Totalmente pensada para los usuarios de CD, un concepto 
revolucionario en la reproducción del sonido. 

Toma nota de nuestro sumario 

- CD - La pureza del sonido 

- CD - Interactivo 



- CD-ROM 

- GUIA COMPLETA DE APARATOS COMPACTDISC 

- COMPLETO CATALOGO DE DISCOS 



- LOS 50 CLASICOS IMPRESCINDIBLES 

- LOS «TWENTYPOPS» 



NO ES CASUALIDAD 



Música clásica y jazz 





r anhattan Transfer, S.A. 



DEVS EX MACHINA 



¡¡EL AUDIO-VIDEO!! 
EN 




DEVS EX MACHINA 
EL CONCEPTO MAS AVANZADO 
EN JUEGOS PARA TU MSX 
¡SIENTATE ANTE TU MSX 
CONECTA LA BANDA SONORA 
Y VIAJA HACIA EL FUTURO...! 



¡LA AUDIO-VIDEO AVENTURA 
MAS ALUCINANTE JAMAS 
CREADA...! 

Mariano Cubi. 4 Entio. Tel. 218 34 00 - 08006 Barcelona 



_ YAMAHA 

MUSIC COMPUTER 




YAMAHAHAZEN 

Carretera de La Coruña, km. 17,200 / Teléfono 637 76 46 / Télex 42454 HAZEN E / 28230 Las Rozas de Madrid 



